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ABSTRACT 

Traditionally,  the  design  and  implementation  of  a  conventional  database 
system  begins  with  the  choice  of  a  data  model  followed  by  the  specification  of  a 
model-based  data  language.  Thus,  the  database  system  is  restricted  to  a  single 
data  model  and  a  specific  data  language.  An  alternative  to  this  traditional 
approach  to  database-system  development  is  the  multi-lingual  database  system 
(MLDS).  This  alternative  approach  enables  the  user  to  access  and  manage  a  large 
collection  of  databases  via  several  data  models  and  their  corresponding  data 
languages  without  the  aforementioned  restriction. 

In  this  thesis  we  present  the  implementation  of  a  functional/Daplex  language 
interface  for  MLDS.  Specifically,  we  present  the  implementation  of  an  interface 
which  translates  Daplex  language  calls  into  attribute-based  data  language 
(ABDL)  requests  which,  as  the  kernel  language,  support  all  other  data  language 
interfaces. 
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I.    AN  INTRODUCTION 

A.    THE  MOTIVATION 

The  concept  of  a  database  system  has  been  widely  accepted  by  major  users  of 
computers  ever  since  it  was  introduced.  Many  database  systems  have  been 
developed  and  utilized  by  a  large  community  of  users.  These  database  systems 
have  been  designed  and  implemented  in  a  rather  conventional  manner  -  a  specific 
data  model  for  the  database  system  is  always  selected  first,  then  a  corresponding 
model-based  data  language  is  specified.  Some  examples  of  these  database  systems 
are: 

•  IBM's     Information     Management     System     (IMS)     which     supports     the 
hierarchical  database  model  and  IBM's  Data  Language  I  (DL/I) 

•  IBM's   SQL/Data  System  which  supports  the  relational  model  and  IBM's 
Structured  English  Query  Language  (SQL) 

•  Univac's  CODASYL-DML/Data  System  which  supports  the  network  model 
and  Univac's  CODASYL  Data  Manipulation  Language  (CODASYL-DML) 

•  CCAs  Daplex/Data  System  which  supports  the  functional  model  and  CCA's 
Daplex  Language 

The  result  of  this  conventional  approach  to  the  design  of  a  database  system 
is  a  mono-lingual  database  system  where  the  user  sees  and  utilizes  the  database 
system  with  a  specific  data  model  and  its  model-based  data  language.  One 
research    effort    to    overcome    this    limitation    was    to    introduce    a    new    and 
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unconventional  approach  to  the  design  and  implementation  of  a  database  system, 
the  multi-lingual  database  system  (MLDS)  [Ref.  l]. 

B.    THE  MULTI-LINGUAL  DATABASE  SYSTEM 

The  multi-lingual  database  system  is  a  single  database  system  that  can 
execute  many  transactions  written  in  different  data  languages  and  support  many 
databases  structured  on  different  data  models.  The  design  goals  of  MLDS  involve 
developing  a  system  that  is  accessible  via  four  different  interfaces,  the 
hierarchical/DL/I  [Refs.  2.  3],  network/DML  [Ref.  4],  relational/ SQL  [Ref.  5],  and 
functional/Daplex  [Ref.  6]  models.  MLDS  transforms  traditional  database  models 
into  a  single  database  model  called  the  attribute-based  model  [Ref.  7].  The 
system  structure  of  MLDS  is  shown  in  Figure  1.1. 

The  user  data  model  (UDM)  and  the  user  data  language  (UDL)  refer  to  the 
database  model  and  language  chosen  by  the  user.  The  kernel  data  model  (KDM) 
and  the  kernel  data  language  (KDL)  refer  to  the  attribute-based  model  and 
attribute-based  data  language  (ABDL).  Users  issue  transactions  through  the 
language  interface  layer  (LIL)  using  a  chosen  user  data  model  (UDM)  and  written 
in  a  corresponding  model-based  data  language  (UDL).  LIL  then  routes  the  user 
transactions  to  the  kernel  mapping  system  (KMS).  If  the  user  specifies  that  a  new 
database  is  to  be  created,  KMS  transforms  the  database  definition  to  a  KDM- 
based  database  definition  and  forwards  to  the  kernel  controller  (KC).  KC,  in 
turn,  sends  the  KDM  database  definition  to  the  kernel  database  system  (KDS). 
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(udlY 


UDM  :  User  Data  Model 

UDL  :  User  Data  Language' 

LIL  :  Language  Interface  Layer 

KMS  :  Kernel  Mapping  System 

KC  :  Kernel  Controller 

KFS  :  Kernel  Formatting  System 

KDM  :  Kernel  Data  Model 

KDL  :  Kernel  Data  Language 

KDS  :  Kernel  Database  System 


Figure  1.1.    The  Multi-lingual  Database  System  (MLDS). 


After  KDS  has  completed  its  tasks  of  creating  the  database,  it  informs  KC.  KC 
then  notifies  the  user  via  LIL.  If  the  user  specifies  transactions  using  UDL 
through  LIL,  KMS  translates  the  UDL  transactions  to  the  KDL  transactions  and 
sends    them    to    KC.     KC    then    forwards    the    KDL    transactions    to    KDS    for 


execution.  Upon  completion,  KDS  sends  the  results  in  the  KDM  form  back  to  KC. 
KC  then  routes  the  results    to  the  kernel  formatting  system  (KFS)  which  formats 
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the  results  to  the  UDM  form.  The  results  in  the  correct  UDM  form  are  then  be 
displayed  via  LIL. 

The  four  software  modules.  LIL,  KMS,  KC,  and  KFS,  are  collectively  known 
as  the  language  interface.  Four  similar  sets  of  these  modules  are  required  for  the 
four  different  data  model/ language  interfaces  supported  by  MLDS.  The 
hierarchical/DL/I  language  interface  [Ref.  8],  relational/SQL  language  interface 
[Ref.  9],  and  network/DML  language  interface  [Ref.  10]  have  been  implemented. 
The  functional/Daplex  language  interface  [Ref.  11]  has  been  partially 
implemented.  This  thesis  is  a  continuation  on  the  task  of  implementing  the 
functional/Daplex  language  interface. 

C.    THE  KERNEL  DATA  MODEL  AND  LANGUAGE 

The  choice  of  a  kernel  data  model  and  a  kernel  data  language  is  the  key 
decision  in  the  development  of  a  multi-lingual  database  system.  The  overriding 
question,  when  making  such  a  choice,  is  whether  the  kernel  data  model  and  kernel 
data  language  is  capable  of  supporting  the  required  data-model  transformations 
and  data-language  translations  for  the  language  interfaces. 

The  attribute-based  data  model  proposed  by  Hsiao  [Ref.  12],  extended  by 
Wong  [Ref.  13],  and  studied  by  Rothnie  [Ref.  14],  along  with  the  attribute-based 
data  language  (ABDL),  defined  by  Banerjee  [Ref.  15],  have  been  shown  to  be 
acceptable  candidates  for  the  kernel  data  model  and  kernel  data  language, 
respectively. 
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The  determination  of  a  kernel  data  model  and  kernel  data  language  is 
important  for  MLDS  because  no  matter  how  multi-lingual  MLDS  may  be,  if  the 
underlying  database  system  (i.e..  KDS)  is  slow  and  inefficient,  then  the  interfaces 
may  be  rendered  useless  and  untimely.  Hence,  it  is  important  that  the  kernel 
data  model  and  kernel  language  be  supported  by  a  high-performance  and  great- 
capacity  database  system.  Currently,  only  the  attribute-based  data  model  and 
the  attribute-based  data  language  are  supported  by  such  a  system.  This  system  is 
the  multi-backend  database  system  (MBDS)  [Ref.  16]. 

D.    THE  MULTI-BACKEND  DATABASE  SYSTEM 

The  multi-backend  database  system  (MBDS)  has  been  designed  to  overcome 
the  performance  problems  and  upgrade  issues  related  to  the  traditional  approach 
of  database  system  design.  This  goal  is  realized  through  the  utilization  of 
multiple  backends  connected  in  a  parallel  fashion.  These  backends  have  identical 
hardware,  replicated  software,  and  their  own  disk  systems.  In  a  multiple 
backend-configuration,  there  is  a  backend  controller,  which  is  responsible  for 
supervising  the  execution  of  database  transactions  and  for  interfacing  with  the 
hosts  and  users.  The  backends  perform  the  database  operations  with  the  database 
stored  on  the  disk  system  of  the  backends.  The  controller  and  backends  are 
connected  by  a  communication  bus.  Users  access  the  system  through  either  the 
hosts  or  the  controller  directly  (see  Figure  1.2). 
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Backend  Store  1 


Communications 
Bus 


Backend  Store  2 


Backend  Store  M 


Figure  1.2.    The  Multi-Backend  Database  System. 


Performance  gains  are  realized  by  increasing  the  number  of  backends.    If  the 

size  of  the  database  and  the  size  of  the  responses  to  the  transactions  remain 

constant,  then  MBDS  produces  a  reciprocal  decrease  in  the  response  times  for  the 

user  transactions  when  the  number  of  backends  is  increased.    On  the  other  hand, 

if   the   number   of   backends    is    increased    proportionally   with    the    increase    in 

databases  and  responses,  then  MBDS  produces  invariant  response  times  for  the 

same  transactions.    A  more  detailed  discussion  of  MBDS  is  found  in  [Ref.  16]. 
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E.    THE  ORGANIZATION  OF  THE  THESIS 

The  remainder  of  this  thesis  is  organized  into  five  chapters  and  five 
appendices.  In  Chapter  II,  we  present  the  background  materials.  This  includes 
an  overview  of  the  source  data  language,  Daplex  and  the  target  data  language, 
ABDL.  In  Chapter  III,  we  describe  the  implementation  strategy,  the  program 
modules  and  the  data  structures  used  in  the  functional/ Daplex  language  interface. 
In  Chapter  IV.  we  present  additions  and  modifications  to  the  language  interface 
layer  from  the  first  implementation  [Ref.  11].  In  Chapter  V,  we  describe  the 
mapping  process  of  the  kernel  mapping  system.  Finally,  in  Chapter  VI,  we 
conclude  the  thesis.  Of  the  appendices,  Appendix  A  contains  the  data  structures 
used  for  the  interface:  Appendix  B  and  C  contain  the  program  listings  for  the  LIL 
and  KMS  modules;  And,  Appendix  D  lists  the  grammar  rules  used  in  our 
implementation  of  the  Daplex  interface. 
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II.    THE  BACKGROUND  MATERIALS 

A.    THE  SOURCE  DATA  LANGUAGE  -  DAPLEX 

Daplex  is  a  database  language  that  was  created  by  David  W.  Shipman  [Ref. 
17]  in  1979  while  working  at  the  Computer  Corporation  of  America  (CCA)  and 
the  Massachusetts  Institute  of  Technology  (MIT)  [Ref.  18].  Its  foundation  is  in 
what  Shipman  and  Gray  [Ref.  18]  call  the  functional  data  model.  One  of 
Shipman's  goals  for  Daplex  is  to  provide  a  conceptually  natural  database  interface 
language.  That  is.  the  Daplex  constructs  used  to  model  real-world  situations  are 
intended  to  closely  match  the  conceptual  constructs  a  human  being  might  employ 
when  thinking  about  those  situations.  Such  conceptual  naturalness,  to  the  extent 
it  has  been  achieved,  presumably  simplifies  the  process  of  writing  and 
understanding  Daplex  requests,  since  the  translation  between  the  user's  mental 
representation  and  its  formal  expression  in  Daplex  is  more  direct. 

Gray  notes  that  Shipman  developed  his  concepts  from  the  semantic  net  data 
abstraction  used  in  artificial  intelligence.  The  semantic  net  is  a  structure  that 
represents  associations  between  objects.  For  each  object  of  a  given  type,  there  is  a 
corresponding  collection  of  functions  which  are  applicable  to  it;  some  of  these 
provide  simple  values,  but  the  results  of  others  are  found  by  following  arcs  in  the 
net,  which  connect  the  object  to  other  objects  of  various  types.    Functions  can  be 
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applied  in  turn  to  these  objects,  thus  determining  a  network  of  associations. 
Consequently,  Shipman's  Daplex  relies  on  functions  and  functional  composition  to 
derive  actual  values. 

A  sample  database,  univ,  is  used  for  examples  throughout  this  thesis.  The 
database  schema  is  presented  in  Figure  2.1  and  a  graphical  representation  of  the 
database  is  presented  in  Figure  2.2.  This  database  follows  closely  the  sample 
database,  university,  in  the  Daplex  User's  Manual  [Ref.  19]  except  that  some 
identifier  names  have  been  abbreviated.  The  abbreviation  is  necessary  as  the 
attribute-based  data  language  requires  the  identifier  name  to  be  of  eight  or  less 
characters  in  length  and  the  use  of  underscore  in  an  identifier  name  is  not 
permitted. 

The  Daplex  database  language  consists  of  two  parts,  the  data  definition 
language  (DDL)  and  the  data  manipulation  language  (DML)  .  DDL  defines  the 
logical  types  and  structures  of  information  in  databases  and  the  constraints  that 
specify  which  values  are  legal.  DML  allows  a  database  user  to  create,  delete, 
modify,  and  retrieve  information  in  the  databases. 

1.     The  Data  Definition  Language 

Daplex    database    definitions    are   syntactically    similar   to    programming 

language  declarations.    The  basic  construct  of  DDL  is  the  database  declaration.  A 

data    declaration    consists    of    data    declarations    and    constraints.      The    data 

declarations  define  the  types  and  structures  of  the  database.     The  constraints 

define  the  set  of  legal  values  of  the  database.    The  basic  format  of  a  database 

19 


DATABASE  univ  IS 

TYPE  person; 

SUBTYPE  employee; 

SUBTYPE  supstaff; 

SUBTYPE  faculty; 

SUBTYPE  student; 

SUBTYPE  graduate: 

SUBTYPE  undrgrad; 

TYPE  course; 

TYPE  dept: 

TYPE  enroll; 

TYPE  rankname  IS  (assistant, associate. full); 

TYPE  semester  IS  (fall,  spring,  summer); 

TYPE  ptgrade  IS  RANGE  0.0  ..  4.0; 


TYPE  person 

IS 

ENTITY 

name          :  STRING  (l  ..  25); 

ssn              :  STRING  (1  ..  9)  :=  "000000000" 

END  ENTITY; 

SUBTYPE  employee  IS  person 

ENTITY 

homeaddr:  STRING  (1  ..  50); 

office          :  STRING  (1  ..  8); 

phones       :  SET  OF  STRING  (1  ..  7); 

salary         :  FLOAT; 

depdents  :  INTEGER  RANGE  0  ..  10  ; 

END  ENTITY; 

SUBTYPE  supstaff  IS  employee 

ENTITY 

supvisor    :  employee  WITHNULL; 

fulltime     :  BOOLEAN; 

END  ENTITY; 

SUBTYPE  faculty  IS  employee 

ENTITY 

rank 

rankname; 

teaching 

SET  OF  course; 

tenure 

BOOLEAN  :=  FALSE; 

fdept 

dept; 

END  ENTITY; 
Figure  2.1.    The  Sample  Database,  univ.  (continued) 
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SUBTYPE  student  IS  person 
ENTITY 

advisor      :  faculty  WITHNULL; 

major         :  dept; 

enrolls  :  SET  OF  enroll; 
END  ENTITY; 

SUBTYPE  graduate  IS  student 
ENTITY 

advcomm  :  SET  OF  faculty: 
END  ENTITY; 

SUBTYPE  undrgrad  IS  student 
ENTITY 

gpa  :  ptgrade  :—  0.0: 

vear  :  INTEGER  RANGE  1  ..  4  :=  1; 

END  ENTITY; 


TYPE  course 

IS 

ENTITY 

title 

STRING  (1  ..  10); 

fdept 

dept; 

fsemster 

semester; 

credits 

INTEGER; 

END  ENTITY; 

TYPE  dept  IS 

ENTITY 

name          :  STRING  (1  ..  20); 

head           :  faculty  WITHNULL; 

END  ENTITY; 

TYPE  enroll  IS 

ENTITY 

class           :  course; 

grade          :  ptgrade; 

END  ENTI' 

rY; 

UNIQUE  ssn  WITHIN  person; 
UNIQUE  name  WITHIN  dept; 
UNIQUE  title,  fsemster  WITHIN  course; 
OVERLAP  graduate  WITH  faculty; 

END  univ; 

Figure  2.1.    The  Sample  Database,  univ. 
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employee 


homeaddr 

office 

salary 

depdents 

(phones) 


ISA 


supvisor 
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full  time 
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Figure  2.2.    A  Graphical  Representation  of  the  "univ"  Database  Schema. 
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declaration  is  given  in  Figure  2.3.  Figure  2.1  is  a  complete  example  of  a  database 
declaration.  In  this  figure,  the  square  brackets  denote  that  the  content  enclosed 
between  them  is  optional.  This  syntactic  convention  is  used  throughout  this 
thesis. 


DATABASE  db-name  IS 

[  non-entity-type-declarations  ] 
entity-type-declarations 
[  entity-type-constraints  ] 
END  [  db-name  ]; 

Figure  2.3.    The  Database-Declaration  Format. 


The  db-name  refers  to  the  unique  name  of  the  database  being  declared. 
The  non-entity-type  declarations  are  declarations  of  string  types,  scalar  types,  and 
numeric  constants.  The  entity-type-declarations  are  declarations  of  entity  types 
and  subtypes,  their  functions  and  generalization  hierarchies.  The  entity-type- 
constraints  define  those  properties  of  the  declared  entity  types  and  subtypes  that 
must  remain  invariant  under  any  operations  on  values  of  those  types.  The  data 
declarations  and  constraints  can  be  intermixed  in  any  order.  However,  all  types 
must  be  completely  or  partially  declared  before  the  name  of  the  type  can  appear 
in  another  declaration. 

An  entity-type  declaration  declares  a  new  entity  type.  The  two  formats 
of  entity-type  declarations  are  shown  in  Figure  2.4.     The  first  format  is  for  a 
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complete  entity-type  declaration.  The  entity-type-name  is  an  identifier  that  is  the 
name  of  the  entity  being  declared.  The  name  must  be  unique  among  all  type  and 
subtype  names  within  the  database.  The  function-names  are  lists  of  one  or  more 
identifiers,  separated  by  commas,  that  are  the  names  of  the  functions  that  can  be 
applied  to  the  entity  type  being  declared.  If  there  is  more  than  one  identifier  in 
the  list,  all  function  names  on  the  list  share  the  same  function-type.  The 
function-type  may  be  strings,  scalars  (integer,  floating-point,  or  enumeration 
type),  entities,  nonentities  or  sets  of  any  of  the  above  types.  The  second  format  is 
for  a  partial  entity-type  declaration.  A  partial  entity-type  declaration  introduces 
only  the  type  name  to  make  it  available  as  a  function  type  for  another  entity  type 
declaration.    A  function  type  must  be  declared,  completely  or  partially,  before  it 


(1)  TYPE  entity-type-name  IS 
ENTITY 

[  function-names- 1  :  function-type; 
function-names-2  :  function-type; 


function-names-n  :  function-type;  ] 
END  ENTITY: 


(2)  TYPE  entity-type-name; 
Figure  2.4.    The  Entity-Type-Declaration  Formats. 
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can  be  referenced.  The  reference  of  entity  types  in  this  manner  provides  the 
operational  link  in  implementing  the  user- defined  relationships  of  the  functional 
model  in  Daplex.  Whenever  a  partial  declaration  appears  in  an  entity-type 
declaration,  the  complete  declaration  of  that  entity  type  must  appear  later  in  the 
same  database  declaration. 

The  relations  among  the  objects  in  Daplex  are  reflected  in  the 
generalization  hierarchies.  All  types  in  the  generalization  hierarchy  are  entity 
types  or  entity  subtypes.  An  example  of  the  Person  generalization  hierarchy  is 
presented  in  Figure  2.5.    The  example  shows  that  the  entity  type.  Person,  forms 


Figure  2.5.    An  Example  of  Generalization  Hierarchy. 
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the  root  of  a  tree  of  built-in  relationships.  The  nodes  of  the  tree  are  entity 
subtypes.  The  names  of  subtypes  must  be  unique.  Subtypes  are  descendants  of 
the  root  type  or  other  subtypes.  As  the  hierarchy  is  traversed  downward  from 
level  to  level,  each  subtype  inherits  all  of  the  functions  of  its  supertypes. 
Supertypes  are  ancestors  of  subtypes.  The  highest  level  ancestor  (Person)  is  the 
root  type.  The  formats  for  generalization-hierarchy  declarations  are  depicted  in 
Figure  2.6. 


(l)  SUBTYPE  subtype-name  IS  supertype-names 
ENTITY 

[  function-names- 1  :  function-type: 
function-names-2  :  function-type; 


function-names-n  :  function-type;  ] 
END  ENTITY; 

(2)  SUBTYPE  subtype-name; 

Figure  2.6.    The  Generalization-Hierarchy-Declaration  Formats. 


The  subtype-name  is  an  unique  identifier  of  the  subtype  being  declared. 
The  supertype-names  is  a  list  of  one  or  more  names  of  entity  types  and  subtypes 
of  built-in  relationships  completely  declared  previously  in  an  entity-type 
declaration  or  generalization-hierarchy  declaration.  The  function-names  and  the 
function-types  are  the  same  as  for  an  entity-type  declaration.    The  two  formats 
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also  correspond  directly  to  the  entity  type  declaration  formats.  One  important 
point  to  remember  is  that  the  complete  declaration  of  all  subtypes  creates  a 
built-in  relationship. 

Nonentity-type  declarations  describe  the  primitive  objects  that  declare 
data  types  other  than  entities.  There  are  three  nonentity  types:  the  base  type. 
the  subtype  and  the  derived  type.    Their  formats  are  shown  in  Figure  2.7. 

base  type         :    TYPE  type-name  IS  type-definition: 

subtype  :    SUBTYPE  subtype-name  IS  prev-name 

[  scalar-type-constraints  ]: 

derived  type    :    TYPE  type-name  IS  NEW  prev-name 

[  scalar-type-constraints  ]; 

Figure  2.7.    The  Nonentity-Type-Declarations  Format. 

The  type-definition  declares  the  data  types  of  the  nonentities.  They  may 
be  user-defined  or  predefined.  The  predefined  types  are  STRING,  INTEGER, 
FLOAT,  and  BOOLEAN.  User-defined  types  are  strings,  scalars  (integer, 
floating-point,  enumeration,  and  boolean),  and  numeric  constants.  The  prev- 
name  refers  to  name  of  previously  declared  type  or  subtype.  The  scalar-type- 
constraint  may  be  used  to  restrict  the  value  of  the  nonentity  type  being  declared. 
An  example  of  a  scalar-type-constraint  is  the  restriction  of  "ptgrade"  within  the 
range  from  "0.0"  to  "0.4" 
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There  are  two  types  of  constraints  on  entity  types  in  Daplex:  the  overlap 
constraint  and  uniqueness  constraint.  An  overlap  constraint  determines  when  an 
entity  may  legally  belong  to  two  or  more  terminal  entity  subtypes.  A  terminal 
entity  subtype  is  a  leaf  in  the  generalization  hierarchy.  Terminal  types  are 
disjoint  unless  they  are  connected  with  the  overlap  constraint.  The  format  of 
overlap-constraint  declaration  is  shown  in  Figure  2.8.  The  entity-type-names  is  a 
list  of  one  or  more  identifiers  (separated  by  commas)  of  previously  declared  entity 
subtypes.  An  overlap  constraint  specifies  that  any  database  entity  belonging  to  a 
subtype  identified  in  the  first  list  also  may  belong  to  each  of  the  subtypes 
identified  in  the  second  list. 

OVERLAP  entity-type-names  WITH  entity-type-names: 
Figure  2.8.    The  Overlap-Constraint  Format. 

The    uniqueness    constraint    specifies,    for    a    particular    entity    type    or 

subtype,  a  collection  of  functions  whose  values  are  unique  for  all  entities  in  a 

database  belonging  to  that  type  or  subtype.    The  format  for  uniqueness-constraint 

is  given  in  Figure  2.9.    The  entity-type-name  is  the  name  of  a  previously  declared 

entity  type  or  subtype.    A  restriction  for  values  of  functions  is  that  uniqueness 

constraints  only  apply  to  values  directly.    Functions  that  derive  their  values  from 

relationships  with  entities  or  nonentities  are  precluded  from  forming  uniqueness 

constraints. 
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UNIQUE  function-names  WITHIN  entity-type-name: 
Figure  2.9.    The  Uniqueness-Constraint  Format. 


The    Daplex    DDL    is    to    be   discussed   again   in    Chapter   V,   where   the 
transformations  between  the  Daplex  and  the  ABDL  structures  are  presented. 
2.      The  Data  Manipulation  Language 

The  Daplex  data  manipulation  language  (DML)  allows  users  to  retrieve 
and  update  entities  and  function  values  in  the  database.  The  FOR  EACH 
statement  is  the  basis  for  Daplex  data  retrieval.  It  is  used  to  specify  the  set  of 
entities  or  values  that  are  to  be  accessed  and  to  loop  over  that  set.  The  format  of 
the  FOR  EACH  statement  is  shown  in  Figure  2.10.    The  loop-label  is  an  optional 


[  loop-label:  ]  FOR  [  EACH  ]  loop-parameter 

IN  set-expression 

[  WHERE  boolean-expression  ] 

[  BY  order-clauses  ] 
[ LOOP ] 

loop-body 
END  [  LOOP  ]: 

Figure  2.10.    The  FOR  EACH  Statement  Format. 


29 


label  for  the  statement.  The  loop-parameter  is  an  identifier.  On  each  iteration  of 
the  loop,  loop-parameter  is  assigned  a  member  of  the  set  of  database  values.  The 
set-expression  specifies  a  set  of  unique  string,  scalar,  or  entity  values.  The 
boolean-expression  is  any  expression  that  yields  a  boolean  value.  It  restricts  the 
members  of  set-expression  over  which  the  loop  iterates.  Order-clause  is  a  list  of 
one  or  more  clauses  that  define  the  order  of  iteration  through  the  set.  The  loop- 
body  may  include  a  sequence  of  one  or  more  DML  statements  that  are  executed 
once  for  each  iteration  of  the  loop. 

For  printing  and  formatting  the  display  of  query  results,  the 
PROCEDURE-CALL  statement  is  used.  There  are  several  formats  available  in 
the  original  Daplex  data  language.  In  our  implementation,  only  the  PRINT  and 
PRINT  LINE  statement  formats,  shown  in  Figure  2.11.  are  implemented.  These 
statements  print  the  values  of  each  of  the  expressions  using  default  formats  of  the 
expressions.  The  difference  between  the  two  statements  is  that  PRINT  LINE 
outputs  a  carriage  return  after  all  of  the  expression  values  are  printed. 

(1)  PRINT  (  expressions  ); 

(2)  PRINT_LINE  (  expressions  ); 

Figure  2.11.    The  PRINT  and  PRINT   LINE  Statement  Formats. 
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For  database  updates,  there  are  the  ASSIGNMENT.  CREATE. 
INCLUDE,  EXCLUDE.  DESTROY  and  MOVE  statements.  The  formats  of  these 
statements  are  listed  in  Figure  2.12.    The  ASSIGNMENT  statement  is  used  to 


(1)  ASSIGNMENT  statement: 

single-valued-function-expression  :=  expression: 

(2)  CREATE  statement: 

CREATE  NEW  entity-type-names 
[  (function-name- 1  —>  expression- 1. 
function-name-2  =>  expression-2, 


function-name-m  =>  expression-m)  ]; 

(3)  INCLUDE  statement: 

INCLUDE  expression  INTO  set-valued-function-expression; 

(4)  EXCLUDE  statement: 

EXCLUDE  expression  FROM  set-valued-function-expression: 

(5)  DESTROY  statement: 

DESTROY  (entity-valued-expression) ; 

(6)  MOVE  statement: 

MOVE  entity-valued-expression 
[  FROM  entity-type-names  ] 
[  INTO  entity-type-names 

[  (function-name-1  =>  expression-1, 
function-name-2  =>  expression-2, 


function-name-m  =>  expression-m)  ]  ]; 
Figure  2.12.    The  Database-Update-Statement  Formats. 
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assign  or  modify  a  value  to  a  single-valued  function.  The  CREATE  statement  is 
used  to  create  a  new  database  entity.  The  INCLUDE  statement  adds  either  a 
single  value  or  a  set  of  values  to  a  set-valued  function.  The  EXCLUDE  statement 
is  used  to  remove  a  single  value  or  a  set  of  values  from  a  set-valued  function.  The 
DESTROY  statement  removes  an  entity  from  the  database.  The  MOVE 
statement  changes  the  subtypes  to  which  an  entity  belongs.  The  effect  is  the 
removal  of  the  entity  from  each  subtype  in  the  FROM  list  and  the  addition  of  the 
entity  to  each  subtype  in  the  INTO  list. 

B.    THE  TARGET  DATA  LANGUAGE  -  ABDL 
1.      The  Attribute-based  Data  Model 

The  data  structures  of  the  attribute-based  data  model  include:  database, 
file,  record,  attribute-value  pair,  keyword,  attribute-value  range,  directory 
keyword,  non-directory  keyword,  director}',  record  body,  predicates,  and  query. 
Informally,  a  database  consists  of  a  collection  of  files.  Each  file  contains  a  group 
of  records  characterized  by  a  unique  set  of  directory  keywords.  An  example  of  a 
record  for  a  "Person"  file  is  shown  in  Figure  2.13.    A  record  is  composed  of  two 


(<FILE,  Person>,  <NAME,  Charlie  Brown>.  <SSN,  123456789>, 
{  Cartoon  character  }) 


Figure  2.13.    An  Example  of  a  Record. 
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parts.  The  first  part  of  a  record  is  a  collection  of  attribute-value  pairs  or 
keywords.  The  attribute  of  an  attribute-value  pair  defines  the  specific  quality  or 
the  certain  characteristics  of  the  value.  In  our  example,  the  attribute-value  pair. 
<NAME,  Charlie  Brown>.  has  an  attribute  "NAME"  and  the  value  of  the 
attribute  is  "Charlie  Brown"  Each  record  can  only  have  one  value  associated  with 
a  corresponding  attribute  in  the  attribute-value  pair.  Further,  no  two  attribute- 
value  pairs  have  the  same  attribute  in  a  record,  i.e..  all  attributes  must  be  unique 
in  a  record.  Certain  attribute-value  pairs  of  a  record  are  called  directory  keywords 
since  their  attribute  values  or  attribute-value  ranges  are  kept  in  a  director}-  for 
identifying  the  records  (files).  <FILE.  Person>  in  Figure  2.13  is  an  example  of  a 
director}'  keyword.  Those  attribute-value  pairs  that  are  not  kept  in  the  director}' 
are  called  non-directory  keywords.  The  second  part  of  the  record  is  the  record 
body  which  contains  only  textual  information.  The  record  body  in  our  record  is 
the  "'Cartoon  character"  enclosed  within  a  pair  of  curly  brackets. 

The  records  of  a  database  may  be  identified  by  keyword  predicates.  A 
keyword  predicate  is  a  3-tuple  consisting  of  a  director}'  attribute,  a  relational 
operator,  and  an  attribute  value,  e.g..  (NAME  =  Charlie  Brown).  A  query 
combines  keyword  predicates  in  disjunctive  normal  form.  An  example  of  a  query 
is  given  in  Figure  2.14.  The  query  will  be  satisfied  by  all  records  of  the  Person  file 
where  the  value  of  the  attribute  NAME  is  "Charlie  Brown"  or  "'Beetle  Bailey" 
use  parenthesis  for  bracketing  conjunctions  in  a  query. 
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((FILE  =  Person)  and  (NAME  =  Charlie  Brown))  or 
((FILE  =  Person)  and  (NAME  =  Beetle  Bailey)) 

Figure  2.14.    An  example  of  a  Query. 


2.     The  Attribute-based  Data  Language 

The  attribute-based  data  language  (ABDL)  supports  five  primary- 
database  operations:  INSERT.  DELETE.  UPDATE.  RETRIEVE,  and 
RETRIEVE-COMMON.  A  request  in  ABDL  is  a  primary  operation  with  a 
qualification.  A  qualification  specifies  the  part  of  the  database  that  is  to  be 
operated  on.  Two  or  more  requests  may  be  grouped  together  to  form  a 
transaction. 

The  INSERT  request  inserts  a  new  record  into  the  database.  The 
qualification  of  an  INSERT  request  is  a  list  of  keywords  with  or  without  a  record 
body.  An  example  of  a  INSERT  request  is  shown  in  Figure  2.15.  This  request 
inserts  a  new  record  to  the  Person  file  where  the  value  of  the  attribute  NAME  is 


INSERT  (<FILE.  Person>,  <NAME,  Charlie  Brown> 
<SSN,  123456789>,  <AGE,  35>) 

Figure  2.15.    An  Example  of  INSERT  Request. 
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Charlie  Brown,  the  value  of  the  attribute  SSN  is  123456789,  and  the  value  of  the 
attribute  AGE  is  35. 

A  DELETE  request  removes  one  or  more  records  from  a  database.  The 
qualification  of  a  DELETE  request  is  a  query.  An  example  is  shown  in  Figure  2.16 
to  illustrate  the  DELETE  request.  This  request  removes  all  of  the  records  from 
the  Person  file  whose  age  is  greater  than  60. 

DELETE  ((FILE  =  Person)  and  (AGE  >  60)) 
Figure  2.16.    An  Example  of  DELETE  Request. 

The  UPDATE  request  modifies  records  of  the  database.  The  qualification 
of  an  UPDATE  request  consists  of  two  parts,  the  query  and  the  modifier.  The 
query  specifies  which  records  of  the  database  are  to  be  modified.  The  modifier 
specifies  how  the  records  being  modified  are  to  be  updated.  An  example  of  the 
UPDATE  request  is  shown  in  Figure  2.17.  This  request  modifies  all  of  the  records 
in  the  Person  file  by  incrementing  the  age  by  one.  The  query  is  (FILE  =  Person) 
and  the  modifier  is  (AGE  =  AGE  +  l). 

UPDATE  (FILE  =  Person)  (AGE  =  AGE  +  1) 
Figure  2.17.    An  Example  of  UPDATE  Request. 
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A  RETRIEVE  request  retrieves  records  from  the  database.  The 
qualification  of  a  retrieve  request  consists  of  a  query,  a  target-list,  and  an  optional 
by-clause.  The  query  specifies  which  records  are  to  be  retrieved.  The  target-list 
consists  of  a  list  of  output  attributes.  It  may  also  consist  of  an  aggregate 
operation,  i.e.,  AVG,  COUNT,  SUM,  MIN,  MAX,  on  one  or  more  output 
attributes.  The  optional  by-clause  may  be  used  to  group  records  when  an 
aggregate  operation  is  specified.  Figure  2.18  is  an  example  of  the  RETRIEVE 
request.  This  request  lists  the  SSN,  NAME  and  AGE  of  all  records  in  the  Person 
file  whose  AGE  value  is  greater  than  seventeen.  The  query  is  (FILE  =  Person) 
and  (AGE  >  17).  the  target-list  is  (SSN,  NAME,  AGE),  and  the  by-clause  is  by 
SSN. 


RETRIEVE  ((FILE  =  Person)  and  (AGE  >  17)) 
(SSN.  NAME,  AGE)  by  SSN 

Figure  2.18.    An  Example  of  RETRIEVE  Request. 


The  last  request,  RETRIEVE-COMMON,  is  used  to  merge  two  files  by 
common  attribute-values.  Logically,  the  RETRIEVE-COMMON  request  can  be 
considered  as  a  transaction  of  two  retrieve  requests  that  are  processed  serially  in 
the  general  form  shown  in  Figure  2.19.  The  common  attributes  are  attribute-1 
(associated  with  the  first  retrieve  request)  and  attribute-2  (associated  with  the 
second  retrieve  request). 
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RETRIEVE  (query- 1)  (target-list-1) 
COMMON    (attribute-1,  attribute-2) 
RETRIEVE  (query-2)  (target-list-2) 

Figure  2.19.    The  General  Form  of  RETRIEVE-COMMON  Request. 


In  Figure  2.20.  an  example  of  RETRIEVE-COMMON  from  a  population  census 
example  illustrates  this  request.  This  example  finds  all  of  the  records  in  the 
CanadaCensus  file  with  population  greater  than  100.000.  finds  all  the  records  in 
the  USCensus  file  with  population  greater  than  100.000.  identifies  records  of 
respective  files  whose  population  figures  are  common,  and  returns  the  two  city 
names  whose  cities  have  the  same  population  figures.  ABDL  provides  five 
seemingly  simple  database  operations,  which  are  nevertheless  capable  of 
supporting  complex  and  comprehensive  transactions. 


RETRIEVE  ((FILE  =  CanadaCensus)  and 
(POPULATION  >=  100000)) (CITY) 

COMMON  (POPULATION,  POPULATION) 

RETRIEVE  ((FILE  =  USCensus)  and 

(POPULATION  >=  100000))(CITY) 

Figure  2.20.    An  Example  of  RETRIEVE-COMMON  Request. 
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III.    THE  IMPLEMENTATION  PROCESS 

A.  THE  DESIGN  GOALS 

During  the  early  stages  of  the  design  of  MLDS.  we  have  decided  that  there 
should  not  be  any  changes  to  the  kernel  data  model  and  the  kernel  data  language, 
i.e..  the  attribute-based  data  model  and  ABDL.  Instead,  our  implementation 
resides  entirely  in  the  host  computer  system.  All  user  transactions  in  Daplex  are 
processed  in  the  Daplex  interface  and  transformed  into  ABDL  transactions  format 
before  being  forwarded  by  KG  to  KDS  for  processing. 

In  addition,  we  intend  to  make  our  interface  transparent  to  the  user.  For 
example,  a  user  with  previous  experience  in  Daplex  could  log  onto  our  system, 
issue  a  Daplex  request  and  receive  result  data  in  the  functional  format.  The  user 
requires  no  training   in  ABDL  procedures  prior  to  utilizing  the  system. 

B.  THE  IMPLEMENTATION  STRATEGY 

Due  to  the  large  size  of  the  MLDS  project  and  the  time  constraint  on  the 
thesis  students  involved,  a  suitable  implementation  strategy  must  be  employed. 
We  have  predicated  our  choice  of  the  strategy  on  minimizing  the  "software- 
crisis"  as  explained  by  Boehm  [Ref.  20].  The  strategy  we  have  decided  upon  is 
the  level-by-level,  top-down  approach.  The  system  is  initially  thought  of  as  a 
"black  box"  that  accepts  Daplex  transactions  and  then  returns  the  appropriate 
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results.  The  "black  box''  is  then  decomposed  into  its  four  modules  (i.e..  LIL. 
KMS,  KC.  and  KFS).  These  modules,  in  turn,  are  further  decomposed  into  the 
necessary   functions     and  procedures  to  accomplish  the  appropriate  tasks. 

The  design  of  the  language  interface  uses  a  Systems  Specification  Language 
(SSL)  [Ref.  21]  extensively.  SSL  has  permitted  us  to  approach  the  design  from  a 
very  high-level,  abstract  perspective.  Furthermore.  SSL  has  allowed  us  to  make 
an  easy  transition   from  the  design  phase  to  the  implementation  phase. 

We    have   used   the    C    programming   language    [Ref.    22]    to   implement    the 

language    interface.     The    greatest    advantage    of   using    C    is    the    programming 

environment     that     it     resides     (i.e.,     the      UNIX      operating     system).        This 

environment    has    permitted    us     to    partition     the     Daplex    interface    and    then 

manage  the  parts    in    an  effective    and  efficient  manner.     One  disadvantage  with 

using  C  is  its  poor  error  diagnostics  that  makes  debugging  difficult.     There  is  an 

on-line  debugger  available  for  use    with   C   in  UNIX  for  debugging.      We  have 

avoided  this    option    and  instead     used   conditional    compilation    and    diagnostic 

print  statements  to  aid  in  the  debugging  process.    Another  criticism  on  C  is  that 

programs  written  in  C  are  often  cryptic.  A  C  program  is  usually  less  readable 

than  a  program  written  in  other  conventional  programming  languages.    We  have 

made  every  effort  to  ensure  that  the  C  code  we  have  written  to  be  easy  to  read 

and  comprehend.    For  instance,    we  often  write  the  code  with  extra  lines  to  avoid 

shorthand     notations     available     in       C.    These     extra     lines    have    made    the 

difference     between   comprehensible  code  and  cryptic   notations.     We  have  also 
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intentionally    minimized  the  interaction    between  procedures  to  ease  the  burden 
of  maintainability. 

C.    THE  DATA  STRUCTURE 

The  Daplex  language  interface  has  been  developed  as  a  single  user  system 
that  at  some  point  will  be  updated  to  a  multi-user  system.  Two  different 
concepts  of  the  data  are  used  in  the  language  interface  :  (1)  Data  shared  by  all 
users,  and  (2)  Data  specific  to  each  user.  The  reader  must  realize  that  the  data 
structures  used  in  our  interface  and  described  below  have  been  deliberately 
made  generic.  Hence,  these  same  structures  support  not  only  our  Daplex 
interface,  but  the  other  language  interfaces  as  well.  i.e..  DL/I.  CODASYL-DML. 
and  SQL. 

1.     Data  Shared  by  All  Users 

The  data  structures  that  are  shared  by  all  users  are  the  database 
schemas  defined  by  the  users  thus  far.  In  our  case,  these  are  the  functional 
schemas,  consisting  of  entities  (types  and  subtypes)  and  the  relationships 
(functions)  between  the  entities.  These  are  not  only  shared  by  all  users,  but 
also  shared  by  the  four  modules  of  the  MLDS,  i.e.,  LIL,  KMS,  KC,  and  KFS. 
Figure  3.1  depicts  the  first  data  structure  used  to  maintain  data. 

It  is  important  to  note  that  this  structure  is  represented  as  a  union. 
Hence,  it  is  generic  in  the  sense  that  a  user  can  utilize  this  structure  to  support 
SQL,    DL/I,     CODASYL-DML,  or  Daplex  needs.      However,    we       concentrate 
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union    dbid  node 

{ 

struct  rel  dbid  node        *dn  rel; 

struct  hie  dbid  node       *dn  hie; 

struct  net_dbid  node       *dn  net: 

struct  fun   dbid   node       *dn  fun: 

} 

Figure  3.1.  The  dbid  node  Data  Structure. 


only  on  the  functional  model.  In  this  regard,  the  fourth  field  of  this  structure 
points  to  a  record  that  contains  information  about  a  functional  database. 
Figure  3.2  illustrates  the  structure  of  this  record. 

The  fdn  name  is  simply  a  character  array  containing  the  name  of  the 
functional  database.  The  fdn  nonentptr  field  holds  a  pointer  to  the  base-type 
nonentity  node,  and  the  fdn  num  nonent  is  an  integer  value  that  represents  the 
number  of  these  nodes  in  the  database.  The  fdn  entptr  points  to  the  entity  node, 
and  as  before  the  field  that  immediately  follows  contains  an  integer  value 
representing  the  number  of  such  nodes.  The  fdn  subptr  is  a  pointer  to  the 
generalized  entity  subtype  node  and  the  integer  field  following  it  keeps  the 
number  of  these  generalized  subtype  nodes  in  the  database.  The  fdn  nonsubptr  is 
a  pointer  to  the  nonentity  subtypes  and  the  integer  following  it  keeps  the  number 
of  such  nodes  in  the  database.  The  fdn  nonderptr  points  to  the  nonentity  derived 
type  node  and  the  number  of  these  nodes  in  the  database  is  kept  in  the  next  field. 
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struct    fun   dbid   node 
{ 


char 

fdn  name[DBNLen 

igth  + 

i]; 

struct 

ent   non  node 

*fdn 

nonentity; 

int 

fdn   num  nonent: 

struct 

ent   node 

*fdn 

entity; 

int 

fdn  num  ent; 

struct 

gen  sub   node 

*fdn 

subptr; 

int 

fdn   num  gen; 

struct 

sub  non  node 

*fdn 

nonsubptr; 

int 

fdn   num  nonsub; 

struct 

der  non  node 

*fdn 

nonderptr: 

int 

fdn  num  der: 

struct 

overlap   node 

*fdn 

ovrptr; 

int 

fdn   num  ovr; 

struct 

fun   dbid   node 

*fdn 

next   db: 

Figure  3.2.    The  fun   dbid  node  Data  Structure. 


The  fdn  ovrptr  and  fdn  num  ovr  are  new  fields  added  to  the  fun  dbid  node 
structure.  The  fdn  ovrptr  is  a  pointer  to  the  structure  overlap  node  which 
contains  the  overlapping  constraints  of  the  database  and  the  fdn  num  ovr  keeps 
track  of  the  number  of  such  constraints.  Finally,  the  last  field  points  to  the  next 
functional  database  node. 

Figure  3.3  depicts  the  entity  node  structure.  The  first  field  of  this 
structure  is  a  character  array  which  holds  the  name  of  the  entity,  and  the  second 
field  is  an  integer  that  is  used  for  keeping  track  of  the  last  unique  number 
assigned   to   each   entity   type   in   the   database.     The   third   field    is   an   integer 
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struct    ent  node 

{ 

char  en_name[ENLength  +  l]; 

int  en  last  ent   id; 

int  en  num  funct: 

int  en  terminal: 

struct  function   node             *en  ftnptr: 

struct  ent  node                       "en   next   ent: 

}: 

Figure  3.3.  The  ent   node  Data  Structure. 


representation  of  the  number  of  functions  associated  with  the  entity  that  this 
node  represents.  For  instance,  the  "person1*  entity  has  two  functions  associated 
with  it.  "name"  and  "ssn"  The  fourth  field  is  an  integer  representation  of  a 
boolean  function  for  indicating  whether  the  entity  is  a  terminal  type.  An  entity 
type  is  a  terminal  type  if  it  is  not  a  supertype  to  any  subtype.  The  en  ftnptr  is  a 
pointer  to  the  function  node  associated  with  this  entity  node.  The  last  field 
points  to  the  next  entity  node  in  the  database. 

The  structure  of  the  gen  sub  node  is  shown  in  Figure  3.4.  The  first  field, 
similar  to  previous  structures,  holds  the  name  of  the  generalized  entity  subtypes. 
An  example  applied  to  the  univ  data  base  is  ''employee'"  The  gsn  num  funct  field 
holds  the  number  of  functions  associated  with  the  entity  subtype,  and  the 
gsn  terminal  field  is  an  integer  representation  of  a  boolean  function  and  holds  a 
"1"  if  the  generalized  subtype  entity  is  not  a  supertype.    The  gsn_entptr  field 
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struct    gen  sub  node 

{ 

char  gsn  name[ENLength  +  l]; 

int  gsn  num  funct; 

int  gsn  terminal: 

struct  ent  node  list  *gsn_entptr; 

int  gsn  num  ent: 

struct  function  node  *gsn  ftnptr: 

struct  sub   node  list  *gsn  subptr; 

int  gsn  num  sub; 

struct  gen  sub  node  *gsn_next_genptr; 

}; 

Figure  3.4.  The  gen   sub   node  Data  Structure. 


holds  a  pointer  to  its  supertype  which  is  of  entity  type.  In  the  case  of 
"employee"  ,  the  supertype  is  "person"  The  next  field  indicates  the  number  of 
entity  supertypes.  The  gsn  ftnptr  field  holds  a  pointer  to  a  function  associated 
with  the  generalized  subtype,  for  instance,  "salary"  The  gsn  subptr  field  holds  a 
pointer  to  the  subtype  supertype.  For  example,  the  supertype  for  the  subtype 
"supstaff"  is  "employee,,  of  the  number  of  such  subtype  supertypes.  The  final 
field  simply  points  to  the  next  gen  sub  node. 

The  ent  non  node  record  is  shown  in  Figure  3.5,  and  contains 
information  about  each  nonentity  base-type  in  the  database.  The  first  field  of  the 
record  holds  the  name  of  the  nonentity  node,  for  example,  "rankname"  holds  the 
character  that  indicates  the  type  of  nonentity  node,  either  "i"  ,  integer;  "e"  , 
enumeration;   "f '   ,  floating  point;   "s"   ,  string:   "b"   „  boolean.   The  next  field 
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struct    ent 

non  node 

{ 

char 

enn  name[ENLength  +  1]; 

char 

enn   type; 

int 

enn   total   length; 

int 

enn  range: 

int 

enn  num  values; 

struct 

ent  value                    *enn  value; 

int 

enn  constant: 

struct 

ent   non  node             *enn   next   node; 

}; 

Figure  3.5.    The  ent   non   node  Data  Structure. 


contains  an  integer  that  indicates  the  maximum  length  of  the  base-type  value. 
The  enn  range  field  contains  an  integer  representation  of  a  boolean  value,  a  "1" 
or  "0"  ,  that  indicates  whether  or  not  there  is  a  range  associated  with  the 
nonentity  node.  For  example,  from  Figure  2.1,  the  nonentity  "ptgrade"  has  a 
range  of  from  0.0  to  4.0,  while  "rankname"  is  without  a  range.  The 
enn  num  values  field  contains  an  integer  that  represents  the  number  of  different 
values  that  the  nonentity  can  assume.  The  next  field  contains  a  pointer  to  the 
actual  value  of  the  base-type.  As  an  example,  "rankname"  can  assume  three 
values,  the  enn  num  values  would  have  a  value  "3"  stored  and  the  enn  value 
would  point  to  a  link  list  which  contains  the  three  values  "assistant"  , 
"associate"  ,  and  "full"  If  a  value  range  is  associated  with  the  nonentity  node, 
indicated  by  enn  range  field,  then  the  enn  num  values  would  be  two  and  the 
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enn  value  will  point  to  a  linked  list  which  contains  the  lower  and  upper  bounds  of 
the  range.  The  enn  constant  field  contains  an  integer  representation  of  a  boolean 
value  that  indicates  if  the  actual  value  of  the  base-type  is  a  constant.  There  are 
no  constants  in  the  univ  database,  but,  as  an  example,  the  value  of  the  base-type 
could  assume  the  constant  value  of  pi  (3.14159265).  The  last  field  contains  a 
pointer  to  the  next  nonentity  node. 

The  sub  non  node  is  shown  in  Figure  3.6.  This  structure  is  almost 
identical  in  form  and  similar  in  purpose  to  the  ent  non  node  of  Figure  3.3.  The 
main  difference  between  the  two  structures  is  that  the  ent  non  node  is  for  a 
base-type  nonentity  and  the  sub  non  node  is  for  a  subtype  nonentity.  The 
difference  in  form  between  the  two  structures  is  the  absence  of  constants  in  the 
sub  non  node.  Maintaining  two  separate  constant  lists  would  be  redundant, 
hence  the  constants  are  found  only  in  the  ent   non  node. 


struct    sub 

{ 

char 
char 
int 

non  node 

snn  name[ENLength  -f  l]; 

snn   type; 

snn  total  length; 

int 
int 

snn  range; 

snn  num  values; 

struct 

ent  value                     *snn  value; 

struct 

}; 

sub  non  node            *snn  next   node; 

Figure  3.6.    The  sub   non  node  Data  Structure. 
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The  next  node,  similar  to  both  the  ent  non  node  and  the  sub  non  node. 
is  the  der_non_node.  shown  in  Figure  3.7.  The  der  non  node  is  identical  in 
structure  to  the  sub  non  node  and  differs  in  function  in  that  it  applies  to  the 
derived  nonentity  subtypes. 


struct    der  non  node 

{ 

char  dnn  name[ENLength  +  l]; 

char  dnn  type: 

int  dnn  total   length: 

int  dnn  range: 

int  dnn   num  values: 

struct  ent   value                     *dnn  value: 

struct  der   non   node             *dnn   next   node: 

}; 

Figure  3.7.  The  der  non  node  Data  Structure. 


The  structure  of  the  overlap  node  is  shown  in  Figure  3.8.  The  first  field 
refers  to  the  name  of  the  base  type  for  the  overlapping  entities.  For  example,  in 
the  case  of  overlapping  "graduate"  with  "faculty"  ,  the  base  type  name  is 
"person"  The  second  field  holds  a  pointer  to  the  list  of  terminal  subtypes  that  are 
overlapped.  The  third  field  keeps  a  count  of  overlapping  subtypes  in  the  list. 
The  last  field  holds  a  pointer  to  the  next  overlap  node. 

The  structure  of  the  function  node  is  shown  in  Figure  3.9.  The 
function  node  defines  the  structures  for  each  function-type  declaration.  The  first 
field   of  the  function   node   is   a  character  array   which   holds   the   name  of  the 
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struct    overlap  node 

{ 

char        base  type  name[ENLength+l]; 
struct      sub   node   list  *snlptr; 

int  num  sub   node: 

struct      overlap   node  *next: 

}; 

Figure  3.8.  The  overlap  node  Data  Structure. 


function.  The  second  field  is  a  character  that  holds  the  function  type.  The  value 
of  this  field  could  be  "f"  .  "i"  .  "s"  ,  "b"  or  "e"  corresponding  to  the  types  float, 
integer,    string,    boolean,    or    entity    respectively.     The    fn   range    field    indicates 


struct    funct 

{ 

char 

ion   node 

fn  name[ENLength+l]; 

char 

fn  type; 

int 

fn   set; 

int 

fn  range; 

int 

fn   total   length; 

int 

fn   num  value: 

struct 

ent  value 

*fn  value; 

struct 

ent   node 

*fn  entptr; 

struct 

gen  sub   node 

*fn  subptr; 

struct 

ent  non  node 

*fn   nonentptr; 

struct 

sub  non   node 

*fn   nonsubptr; 

struct 

der  non  node 

*fn  nonderptr; 

int 

fn  entnull; 

int 

fn  unique; 

struct 

function  node 

*next; 

}; 

Figure  3.9.    The  function   node  Data  Structure. 
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whether  the  function  has  a  range  of  values,  and  the  fn  set  field  indicates  whether 
the  function  is  a  set-valued  function.  A  "0"  in  this  field  would  indicate  that  the 
function  is  single-valued. 

The  fn_total  length  field  indicates  the  maximum  length,  the 
fn  num  value  field  indicates  the  number  of  values,  and  the  fn  value  field  would 
hold  a  pointer  to  the  actual  values.  The  next  five  fields  hold  pointers  to  the  type 
to  which  a  particular  function  belongs.  For  example,  the  function  "head"  in  the 
entity  "dept"'  would  have  the  fn  subptr  pointing  to  the  generalized  subtype 
"faculty"  and  the  other  four  type  field  pointers  will  be  null.  When  the  function  is 
an  entity-valued  function,  the  fn  entnull  field  would  indicate  whether  the 
function  may  have  a  null  value.  The  fn  unique  field  indicates  whether  an 
uniqueness  constraint  is  applicable  to  the  function.  It  is  always  initialized  to  "0" 
and  set  to  "1"  only  when  an  uniqueness  constraint  is  specified.  For  example,  the 
"ssn"  function  in  the  "person"  entity  would  have  this  field  set  to  "1"  The  final 
field  simply  contains  a  pointer  to  the  next  function. 

The  ent  node  list  and  sub  node  list  data  structures  are  shown  in  Figure 
3.10.  These  two  structures  are  used  for  keeping  linked  list  of  pointers  to  entity 
nodes  and  generalized  subnodes  ,  respectively. 

The  data  structure  of  ent  value  is  shown  in  Figure  3.11.    It  is  used  for 

keeping  a  linked  list  of  entity  values.    As  the  length  of  an  entity  value  is  not  a 

constant,  the  ev  value  field  is  just  a  character  pointer.    Exact  size  of  memory 

could  be  allocated  at  the  time  when  an  entity  value  is  to  be  stored. 
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struct    ent   node  list 

{ 

struct      ent  node 

struct      ent  node  list 

}; 

*entptr; 
*next; 

struct    sub   node  list 

{ 

struct      gen  sub   node 
struct      sub  node   list 

}; 

*subptr: 
*next; 

Figure  3.10.    The  ent   node  list  and  sub   node   list  Data  Structures. 


struct    ent  value 

{ 
char         *ev  value; 

struct      ent  value        *next; 

}; 

Figure  3.11.    The  ent  value  Data  Structures. 


2.     Data  Specific  to  Each  User 

This  category  of  data  represents  information  needed  to  support  each 
user's  particular  interface  needs.  The  data  structures  used  to  accomplish  this 
can  be  thought  of  as  forming  a  hierarchy.  At  the  root  of  this  hierarchy  is  the 
data  structure,  user  info,  that  maintains  information  on  all  of  the  current  users  of 
a  particular  language  interface  (see  Figure  3.12).  The  user  info  data  structure 
holds  the  ID  of  the  user,  a  union  that  describes  a  particular  interface,  and  a 
pointer  to  the  next  user.    The  union  field  is  of  particular  interest    to  us.      As 
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struct    user  info 

{ 

char  uid[UID  Length  +  l]; 

union  li_info  li  type: 

struct  user  info         *next  user; 

} 

Figure  3.12.  The  user  info  Data  Structure. 


noted  earlier,  a  union  serves  as  a  generic  data  structure.  In  this  case,  the  union 
can  hold  the  data  for  a  user  accessing  either  a  CODASYL-DML  language 
interface  layer(LIL),  a  DL/I  LIL.  an  SQL  LIL.  or  a  Daplex  LIL.  The  li  info 
union  is  shown  in  Figure  3.13. 

We  are  only  interested  in  the  data  structures  containing  user 
information  which  relates  to  the  Daplex  language  interface  in  this  section.  The 
structure  used  is    referred  to  as  dap   info  and  is    depicted    in  Figure  3.14.    The 


union    li   info 

{ 

struct    sql   info 
struct    dli   info 

li  sql; 
li  dli; 

struct    dml   info 

li  dml; 

struct    dap   info 

} 

li   dap; 

Figure  3.13.    The  li   info  Data  Structure. 
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first  field  of  this  structure,  dpi  curr  db.  is  itself  a  record  and  contains  currency 
information  on  the  database  being  accessed  by  a  user.  The  second  field.  dpi_file, 
is  also  a  record.  The  file  record  contains  the  file  descriptor  and  file  identifier  of  a 
file  of  Daplex  transactions,  either  requests  or  database  descriptions.  The  next 
field,  dpi  dml  tran.  is  also  a  record,  and  holds  information  that  describes  the 
Daplex  transactions  to  be  processed.  This  includes  the  number  of  requests  to  be 
processed,  the  first  request  to  be  processed,  and  the  current  request  being 
processed.  The  fourth  field  of  the  dap  info  record,  dap  operation,  is  a  flag  that 
indicates  the  operation  to  be  performed.  This  may  be  either  the  loading  of  a  new- 
database,  or  the  execution  of  a  request  against  an  existing  database.    The  next 


struct    dap 

{ 

struct 

info 

curr  db   info 

dpi  curr  db; 

struct 

file  info 

dpi   file; 

struct 

tran   info 

dpi   dml  tran; 

int 

dap  operation; 

struct 

ddl   info 

*dpi   ddl  files; 

union 

kms   info 

dpi  kms   data; 

union 

kfs   info 

dpi  kfs   data; 

union 

kc   info 

dpi   kc   data; 

int 

dap   error; 

int 

dap   answer; 

int 

dap  buff  count; 

}; 

Figure  3.14.    The  dap   info  Data  Structure. 
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field.  dpi_ddl_files.  is  a  pointer  to  a  record  describing  the  descriptor  and  template 
files.  These  files  contain  information  about  the  ABDL  schema  corresponding  to 
the  current  functional  database  being  processed,  i.e.,  the  ABDL  schema 
information  for  a  newly  defined  functional  database.  The  next  three  fields, 
dpi  kms  data,  dpi  kfs  data  and  dpi  kc  data,  are  unions  that  contain 
information  required  by  KMS,  KFS  and  KC.  respectively.  The  next  field,  error,  is 
an  integer  value  representing  a  specific  error  type.  The  next  field,  answer,  is  used 
by  LIL  to  record  answers  received  through  its  interaction  with  the  user  of  the 
interface.  The  last  field,  buff  count,  is  a  counter  variable  used  in  KC  to  keep 
track  of  the  result  buffers. 
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IV.   THE  LANGUAGE  INTERFACE  LAYER 

The  function  of  the  language  interface  layer  (LIL)  module  is  to  control  the 
order  in  which  the  other  modules  are  called,  and  allow  the  user  to  input 
transactions  from  either  a  file  or  the  terminal.  A  transaction  may  take  the  form 
of  either  a  database  description  (DBD)  of  a  new  database,  or  a  Daplex  request 
against  an  existing  database.  A  single  transaction  may  contain  multiple  requests, 
allowing  a  group  of  requests  to  perform  a  single  task.  For  example,  several 
"atomic1'  statements,  those  statements  that  are  executed  as  an  indivisible  action 
with  respect  to  the  database,  could  be  executed  together  as  a  single  transaction. 

The  mapping  process  occurs  when  LIL  sends  a  single  transaction  to  KMS. 
After  the  transaction  has  been  received  by  KMS,  KC  is  called  to  process  the 
transaction.  Control  always  returns  to  LIL,  where  the  user  may  either  continue 
with  another  transaction  or  close  the  session  by  exiting  to  the  operating  system. 

LIL  is  menu-driven,  and  when  the  transactions  are  read  from  either  a  file  or 
the  terminal,  they  are  stored  in  the  dap  req  info  data  structure.  If  the 
transactions  are  database  descriptions,  they  are  sent  to  KMS  in  sequential  order. 
If  the  transactions  are  Daplex  requests,  the  user  is  prompted  by  another  menu  to 
selectively  choose  an  individual  request  to  be  processed.  The  menus  provide  an 
easy  and  efficient  way  for  the  user  to  view  and  select  the  methods  of  request 
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processing  desired.  Each  menu  is  tied  to  its  predecessor,  so  that  by  exiting  one 
menu  the  user  is  moved  up  the  '"menu  tree"1  This  allows  the  user  to  perform 
multiple  tasks  in  one  session. 

A.    THE  LIL  DATA  STRUCTURES 

LIL  uses  three  data  structures  to  store  the  user's  transactions  and  control  the 
transaction  sent  to  KMS.  It  is  important  to  note  that  these  data  structures  are 
shared  by  both  LIL  and  KMS. 

The  first  data  structure  is  named  tran  info  and  is  shown  in  Figure  4.1.  The 
first  field  of  this  record,  ti  first  req,  is  the  pointer  to  the  first  request  data 
structure  that  contains  the  union  of  all  the  language  requests  of  MLDS  (see 
Figure  4.2).  The  first  request  can  originate  from  either  a  file  or  a  terminal.  The 
second  field  of  tran  info  is  a  pointer  to  the  current  transaction,  set  by  LIL  to  tell 
KMS  the  precise  transaction  to  process  next.  The  third  field  contains  the  number 
of  transactions  currently  in  the  transaction  list.  This  number  is  used  for  loop 


struct    tran  info 

{ 

union  req  info         ti  first  req; 

union  req  info         ti   curr  req; 

int  ti_no_req; 

}; 

Figure  4.1.  The  tran   info  Data  Structure. 
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union    req  info 

{ 

struct      rel   req  info  *ri   rel   req; 

struct      hie  req  info  *ri   hie   req; 

struct      net  req  info  *ri_net_req; 

struct      dap  req_info  *ri_dap_req; 

struct      ab   req   info  *ri   ab   req; 

}; 

Figure  4.2.  The  req  info  Data  Structure. 


control  when  printing  the  transaction  list  to  the  screen,  or  when  searching  the  list 
for  a  transaction  to  be  executed. 

The  second  data  structure  used  by  LIL.  req  info,  is  a  union  of  the  language 
requests  of  MLDS,  and  is  shown  in  Figure  4.2.  It  serves  a  routing  control 
function,  in  that  it  routes  a  transaction  request  to  the  appropriate  database 
language.  In  this  thesis,  we  are  concerned  only  with  the  the  fourth  field  of  this 
structure,  which  contains  a  pointer  to  the  dap  req  info  data  structure  (see  Figure 
4.3),  each  copy  representing  a  Daplex  user  transaction. 

The  third  data  structure  used  by  LIL  is  named  dap  req  info.  Each  copy  of 
this  record  represents  a  user  transaction,  and  thus,  is  an  element  of  the 
transaction  list.  The  dap  req  info  data  structure  is  shown  in  Figure  4.3.  The 
first  field  of  this  record,  dap  req,  is  a  character  string  that  contains  the  actual 
Daplex  transaction.  The  second  field,  dap  req  len,  contains  the  length  of  the 
transaction.  It   is  used  to  allocate  the  exact,  and  therefore  minimal,  amount  of 
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struct    dap  req  info 

{ 
char  *dap  req; 

int  dap  req  len; 

struct       temp_str_info  Map  in  req; 

struct        dap_req_info  *dap   sub   req; 

struct        dap   req   info  *dap   next   req; 

}; 

Figure  4.3.  The  dap   req  info  Data  Structure. 


memory  space  for  the  transaction.  The  third  field,  dap  in  req.  is  a  pointer  to  a 
list  of  character  arrays  that  each  contains  a  single  line  of  one  transaction.  After 
all  lines  of  a  transaction  have  been  read,  the  line  list  is  concatenated  to  form  the 
actual  transaction,  dap  req.  If  a  transaction  contains  multiple  requests,  the 
fourth  field,  dap  sub  req,  points  to  the  list  of  requests  that  make  up  the 
transaction.  In  this  case,  the  field  dap  in  req  is  the  first  request  of  the 
transaction.  The  last  field,  dap  next  req,  is  a  pointer  to  the  next  transaction  in 
the  list  of  transactions. 

B.    FUNCTIONS  AND  PROCEDURES 

LIL  makes  use  of  a  number  of  functions  and  procedures  in  order  to  create  the 
transaction  list,  pass  elements  of  the  list  to  KMS,  and  maintain  the  database 
schemas.  These  functions  and  procedures  had  been  implemented  by  Anthony  and 
Billings   [Ref.    11].     We  have  made  some  changes  and  additions  to  the  original 
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implementation.     As   the   main   structure  of  the   LIL   module   remains  basically 

unchanged,  we  do  not  repeat  the  description  of  the  LIL  processes  here.    Instead, 

we  document  the  changes  and  additions  in  this  section.    The  updated   C  code 

implementation  of  the  LIL  module  is  listed  in  Appendix  C. 

1.     Changes  to  the  Original  Implementation 

As    mentioned    in    Chapter    I,    there    are   four    similar   sets    of   software 

modules,  LIL,  KMS,  KC.  and  KFS,  required  for  the  each  of  the  four  different  data 

language   interfaces.     Due   to   the   similarity   between   these   interfaces,   it    is   not 

surprising  that  the  corresponding  modules  in  different  interfaces  are  very  similar. 

The  detailed  codes  of  the  corresponding  modules  may  not  be  identical,  but  the 

functionalities  are  mostly  the  same.    As  a  result,  identical  procedure  names  were 

used  for  the  similar  procedures  in  different  implementations  of  the  interfaces.    For 

example,  every  LIL  module  in  the  interfaces  provides  a  procedure  that  allows  the 

user  to  load  in  a  new  database  and  all  implementations  used  load  new  as  the 

procedure  name.    This  posts  no  problems  when  the  interfaces  are  compiled  and 

run    individually.     However,    if  the   four    interfaces    are   to   be    integrated,   it    is 

impossible  to  link  four   different  procedures  having  the  same  name,   load  new. 

There   are   quite   a   number  of  these  similar  procedures   in   LIL.    To   avoid   this 

problem  for  later  integration  of  MLDS,  we  prefixed  the  procedure  names  in  the 

Daplex  interface  by  "f  ' '  which  stands  for  functional.  The  procedure  names  that 

were     changed      are     f  language  interface   layer,     f  load  new,      f  process  old, 

f_kernel_controller,    f_kernel  mapping  system,    f  dbd  to   KMS,    f  free  request, 
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f_rd_temp_str_info.  f_read_transaction_file.  f  read  terminal,  and  f  read  file. 
The  C  code  source  files  that  were  affected  are  main.c.  lil.c,  lilcommon.c.  and 
readrtnes.c  (see  Appendix  C). 

While  going  through  the  program  codes  to  check  for  procedures  with 
identical  names,  we  found  three  procedures  not  only  with  identical  name  but 
identical  functionality  also.  These  procedures  are  get  new  user,  get  ans.  and 
to  caps.  In  this  case,  there  is  no  necessity  to  duplicate  the  procedures  of  identical 
function  with  different  names  in  different  interfaces.  There  are  extracted  from 
LIL  and  included  in  the  common  routine  file,  mdbsgenerais.c.  As  get  ans  was  the 
only  procedure  in  the  source  file  getans.c.  and  get  new  user  was  the  only 
procedure  in  the  source  file  getuser.c.  these  two  files  were  deleted.  The  procedure 
to  caps  was  removed  from  the  source  file  lilcommon.c. 
2.     Additional  Procedures 

For  the  interface  between  MLDS  and  MBDS.  template  files  and 
descriptor  files  are  required.  These  files  are  to  be  created  in  the  LIL  module  of 
MLDS.  Procedures  for  creation  of  template  and  description  files  have  been 
implemented  for  all  of  the  interfaces  except  the  Daplex  interface  [Ref.  23].  In  this 
section,  we  describe  the  implementations  of  these  procedures  for  the  Daplex 
interface. 

a.     Creating  the  Template  File 

A   template  is  a  specification  of  record  structure  that  the  database 

administrator  uses  to  characterize  the  organization   of  records   in   a   file  for   an 
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attribute-based  database.  A  record  is  defined  to  be  a  collection  of  attributes.  We 
can  describe  the  structure  of  a  record  in  terms  of  the  number  of  attributes,  the 
names  of  the  attributes,  and  the  associated  data  types  and  values.  In  doing  so. 
we  can  separate  the  description  of  the  record  away  from  the  actual  records  and 
keep  the  record  description  in  a  template.  The  template  can  later  be  used  for 
determining  and  specifying  the  characteristics  of  an  attribute  and  its  relation  with 
other  attributes  in  a  record.  When  the  records  are  collected  to  form  a  file,  the  file 
structure  would  have  the  same  attributes  and  similar  relations  among  records  in 
the  same  file.  Because  the  structural  information  is  maintained  in  a  single 
template,  a  file  structure  can  be  reorganized  by  simply  changing  the  template. 

The  template  files  in  the  interfaces  have  a  specific  structure.  The 
format  of  a  template  file  for  a  database  with  n  files,  hence  n  templates,  is  shown 
in  Figure  4.4.    A  typical  template  description  for  a  record  with  m  attributes  is 


Database-name 
Number-of-templates 
Template-description- 1 
Template-description-2 


Template-description-n 
Figure  4.4.    The  Template  File  Format. 
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given  in  Figure  4.5.  The  first  field  gives  the  number  of  attributes  in  the  template. 
Note  that  this  number  is  always  one  more  than  the  number  of  attributes  in  the 
record,  i.e.,  m  +  1.  This  is  because  a  constant  attribute,  FILE,  is  always  added 
before  the  actual  attributes  of  the  record.  The  data  type  in  the  template 
description  is  a  single  character  field  which  can  be  s,  i  or  f  representing  string, 
integer  or  float  type. 

The  template  file  for  the  Daplex  interface  is  created  by  transforming 
the  Daplex  data  structure  into  the  template  file  structure.  First,  the  data 
structure  fun  dbid  node  in  Figure  3.2  is  read  to  get  the  database  name  and  the 
number  of  templates  in  the  database.  The  number  of  templates  is  obtained  by 
adding  the  number  of  entity  type  nodes,  fdn  num  ent,  and  the  number  of 
generalized  subnodes,  fdn  num  gen,  in  the  database.  Subsequently,  the  two 
linked  list  structures,  ent   node  in  Figure  3.3  and  gen  sub  node  in  Figure  3.4,  are 


Number-of-attributes 
Template-name 
FILE  s 

attribute-1      data-type-1 
attribute-2      data-type-2 


attribute-m     data-type-m 
Figure  4.5.    A  Typical  Template  Description. 
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traversed  to  extract  the  required  information  for  each  entity  type  node  and 
generalized  subnode.  Figure  4.6  represents  an  algorithm  for  the  transformation. 
The  C  code  implementation  is  listed  in  Appendix  B. 


Assertions: 

1.  The  Daplex  database  D  has  m  entity-type  nodes  {£,,  E7.  .  .  .  .  Em}. 

2.  The  Daplex  database  D  has  n  generalized  subnodes  {s,,  52,  .  .  .,  Sn}. 

3.  Each  entity-type  node  £.,  i  =  1,  .  .  .  ,  m,  has  the  entity-type  name  £rname. 

4.  Each  generalized  subnode  5,.  i  =  1,  .  .  .  ,  n,  has  the  entity-type  name  5,-name. 

5.  Each  Ej,  i  =  1,  .  .  .  ,  m.  has  AE  attributes. 

6.  Each  5(,  i  =  1.  .  .  .  .  n,  has  As  attributes. 

7.  Each  attribute  Ai} ,,  j  =  1,  .  .  .',  AE  or  As  has  the  attribute  name  4,-y-name. 

8.  Each  attribute  .4i;,  j  =  1 AE'  or  As'  has  the  attribute  type  AtJ-type. 

Algorithm: 

write  Database-name 
write  Number-of-templates 

/*  Repeat  for  each  entity-type  node  in  database  */ 

for  each  entity-type  node  E{  in  database  D  do 

write  (AE  -f-  1)  /*  Number  of  attributes  */ 

write  £,-name  /*  Entity  name  */ 

write  "FILE   s" 

/*  Repeat  for  each  attribute  in  the  entity-type  node  */ 

for  each  attribute  Atj  in  entity-type  node  Et  do 

write  A,  -name     .4,.  .-type        /*  Attribute  name,  type  */ 

}    } 

/*  Repeat  for  each  generalized  subnode  in  database  */ 
for  each  generalized  subnode  5.  in  database  D  do 

write  (As  +1)  /*  Number  of  attributes  */ 

write  5,-riame  /*  Entity  subtype  name  */ 

write  "FILE   s" 

/*  Repeat  for  each  attribute  in  the  generalized  subnode  */ 

for  each  attribute  Atj  in   generalized  subnode  S-  do 

write  A,  -name     4-  .-type        /*  Attribute  name,  type  */ 


} 


Figure  4.6.    Algorithm  for  Creating  the  Template  File. 
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b.     Creating  the  Descriptor  File 

While  the  template  file  is  used  to  define  the  record  structures  of  the 
database,  the  descriptor  file  is  used  to  reflect  the  semantic  meanings  and  intended 
use  of  the  data.  In  the  descriptor  file,  the  user  specifies  the  attributes  (or  fields)  to 
be  regarded  as  '"key"  or  "indexing"  attributes  (fields).  MBDS,  i.e.,  KDS,  utilizes 
this  information  to  create  the  index  (cluster)  arrangements  that  permit  the  most 
rapid  and  efficient  response  to  transactions  sent  to  the  database  system. 

The  descriptor  files  in  the  interfaces  also  has  a  specific  structure.  The 
format  of  a  descriptor  file  that  has  n  descriptors  is  shown  in  Figure  4.7.    The  first 


Database- name 

FILEB 

!    Name-of-first-entity 

!    Name-of-second-entity 


!    Name-of-last-entity 
@ 

Descriptor-definition- 1 
Descriptor-definition-2 


Descriptor-definition-n 

$ 

Figure  4.7.    The  Descriptor  File  Format. 
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entry  in  the  format  gives  the  name  of  the  database.  The  "FILE  Bv  on  the  second 
line  is  a  constant  that  must  always  be  there.  Subsequently,  for  each  entity  (entity 
type  or  subtype)  in  the  Daplex  database,  a  line  is  added  beginning  with  an 
exclamation  mark  "!"  and  a  blank  space,  followed  by  the  entity-type  name.  At 
the  end  of  this  list,  an  at-sign  "@"  is  added  to  indicate  the  end  of  the  basic  set  of 
descriptors  for  a  given  database.  It  is  then  followed  by  a  sequence  of  descriptor 
definitions.  The  $  sign  at  the  last  line  of  the  format  indicates  the  end  of  the 
descriptor  file.  Each  descriptor  definition  in  the  descriptor  file  is  expressed  in 
terms  of  the  function,  its  associated  descriptor  type  and  data  type,  and  followed 
by  the  Range-or-Equality-Statements  as  shown  in  Figure  4.8.  The  descriptor  type 
can  be  either  A  or  B  which  reflects  the  user's  choice  of  designating  the  indexes  for 
a  function  as  either  a  range  (A)  or  an  equality  (B).  The  data  type  can  be  i,  s  or  f, 
representing  integer,  string  or  float  type.  The  Range-or-Equality-Statements 
represents  a  sequence  of  statements  reflecting  the  selected  range  or  equality  values 
depending  on  the  descriptor  type  specified.    If  the  descriptor  type  is  A,  then  the 


Attribute      Descriptor-type      Data-type 

{ 

Range-or-Equality-Statements 

} 


Figure  4.8.    The  Typical  Descriptor  Definition. 
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sequence  of  statements  are  just  lines  of  two  numbers  specifying  the  lower  limit 
and  upper  limit  of  the  selected  range.  An  example  of  a  descriptor  definition  with 
range  type  statements  is  shown  in  Figure  4.9.  Note  that  although  more  than  one 
range  can  be  specified,  the  ranges  must  be  mutually  exclusive. 


salary  A  f 

1000.00  2000.00 

3000.00  3500.00 

5000.00  9000.00 


Figure  4.9.    An  Example  of  a  Range  Type  Descriptor. 

Figure  4.10  gives  an  example  of  an  equality  type  descriptor.  An 
equality  type  statement  starts  with  an  exclamation  mark  followed  by  an  exact 
function  value.  In  our  example,  the  descriptor  is  for  establishing  equality  index 
terms  for  selection  of  the  function  dept  to  include  the  departments  specified. 


dept        B         s 
Computer  science 
Electrical  engineering 
Mathematics 
Weapon  systems 


Figure  4.10.    An  Example  of  an  Equality  Type  Descriptor. 
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Unlike  the  creation  of  the  template  file  which  is  accomplished  without 
the  user's  knowledge  or  participation,  the  creation  of  the  descriptor  file  involves 
the  user.  The  user  must  respond  to  a  sequence  of  prompts  in  order  to  determine 
the  set  of  descriptors  to  include  in  the  descriptor  file.  It  is,  in  fact,  the  user's 
detailed  knowledge  of  the  database  and  intended  uses  of  the  database  that  will 
permit  an  effective  choice  of  the  descriptors. 

The  algorithm  for  creating  the  descriptors  of  a  Daplex  database  is 
given  in  Figure  4.11.  This  algorithm  is  basically  similar  to  the  those  for  the  other 
three  interfaces  [Ref.  23].  The  main  difference  is  that  there  are  two  data 
structures,  ent  node  and  gen  sub  node,  to  be  traversed  instead  of  one  as  in  the 
other  interfaces.  Also,  an  important  point  to  note  is  that  Daplex  allows  a 
function  in  an  entity  which  is  of  entity  type.  In  this  case,  the  user  is  not 
permitted  to  specify  descriptors  for  this  function. 


Assertions: 

1.  The  Daplex  database  D  has  m  entity-type  nodes  {E1,  E2,  .  .  .  ,  Em}. 

2.  The  Daplex  database  D  has  n  generalized  subnodes  {5,.  52,  .  .  .,  Sn}. 

3.  Each  entity-type  node  Et.  l  =  1,  .  .  .  ,  m,  has  the  entity-type  name  £(-name. 

4.  Each  generalized  subnode  £,-,  i  =  1,  .  .  .  ,  n,  has  the  entity-type  name  5,-name. 

5.  Each  Et,  i  =  1,  .  .  .  ,  m,  has  AE  attributes. 

6.  Each  5,,  i  =  1,  .  .  .  ,  n,  has  As  attributes. 

7.  Each  attribute  Atj,  j  =  1,  .  .  .  ,  AE  or  As  has  the  attribute  name  ,4, -name. 

Figure  4.11.    Algorithm  for  Creating  the  Descriptor  File,  (continued) 
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Algorithm: 

write  Database-name 
write  "FILE   B" 

/*  Repeat  for  each  entity-type  node  in  database  */ 
for  each  entity-type  node  Et  in  database  D  do 
write    "!"    £.-name 

/*  Repeat  for  each  entity  subnode  in  database  */ 
for  each  entity  subnode  S,  in  database  D  do 
write    "!,T    S.-name 

write    "@" 

/*  Repeat  for  each  entity-type  node  in  database  */ 
for  each  entity-type  node  Et  in  database  D  do 

/*  Repeat  for  each  attribute  in  entity-type  node  */ 
for  each  attribute  .4     in  entitv-type  node  E  do 

if  (AI}  is  not  of  entity  type)  then 

if  (.4, ;  already  selected  as  index  term)  then 
if  (more  values  to  be  added)  then 
write  additional  indexing  values 
else 

if  {Atj  is  to  be  index  term)  then 
write    Afj     A  |B 
write  indexing  values 
write    "@" 

>    } 

/*  Repeat  for  each  entity  subnode  in  database  */ 
for  each  entity  subnode  5.  in  database  D  do 

{ 

/*  Repeat  for  each  attribute  in  entity  subnode  */ 
for  each  attribute  Ai}  in  entity-type  node  5,  do 

if  [A{j  is  not  of  entity  type)  then 

if  (A,-    already  selected  as  index  term)  then 
if  (more  values  to  be  added)  then 
write  additional  indexing  values 
else 

if  (Ajj  is  to  be  index  term)  then 
write    A  ■     A  |B 
write  indexing  values 
write    "@" 

)    } 

write    "$" 

Figure  4.11.    Algorithm  for  Creating  the  Descriptor  File. 
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V.   THE  KERNEL  MAPPING  SYSTEM 

The  kernel  mapping  system  (KMS)  module  is  called  from  the  language 
interface  layer  (LIL)  when  LIL  has  received  Daplex  requests  input  by  the  user. 
The  function  of  KMS  is  to:  (1)  parse  the  request  to  validate  the  user's  Daplex 
syntax,  and  (2)  translate,  or  map,  the  request  to  an  equivalent  ABDL  request. 

The  remainder  of  this  chapter  is  organized  into  four  parts.  In  the  first  part, 
we  present  an  overview  of  the  general  mapping  process,  focusing  on  the  system 
structure  and  the  design  philosophy.  In  the  second  part,  we  describe  how  the  data 
definition  portion  of  Daplex  is  mapped.  In  the  third  part,  we  describe  how  the 
data  manipulation  portion  of  Daplex  is  mapped.  Finally,  in  the  fourth  part,  we 
outline  the  outstanding  work  to  be  done  to  complete  the  implementation. 

A.    AN  OVERVIEW  OF  THE  MAPPING  PROCESS 

From  the  description  of  the  KMS  functions  above  we  immediately  see  the 
requirement  for  a  parser  as  a  part  of  the  KMS.  This  parser  validates  the  Daplex 
syntax  of  the  input  request.  The  parser  is  also  responsible  for  doing  the 
translation  of  Daplex  to  ABDL.  Thus,  the  parser  is  the  driving  force  behind  the 
entire  mapping  system. 
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1.     The  KMS  Parser  /  Translator 

The  KMS  parser  has  been  constructed  by  utilizing  Yet-Another-Compiler 
Compiler  (YACC)  [Ref.  23].  YACC  is  a  program  generator  designed  for  syntactic 
processing  of  token  input  streams.  Given  a  specification  of  the  input  language 
structure  (a  set  of  grammar  rules),  and  the  user's  code.  YACC  generates  a 
program  that  syntactically  recognizes  the  input  language  and  allows  invocation  of 
the  user's  code  throughout  this  recognition  process.  The  class  of  specifications 
accepted  is  a  very  general  one:  LALR(l)  grammars.  It  is  important  to  note  that 
the  user's  code  mentioned  above  is  our  mapping  code  that  is  going  to  perform  the 
Daplex-to-ABDL  translation.  We  utilize  a  Lexical  Analyzer  Generator  (LEX) 
[Ref.  24].  LEX  is  a  program  generator  designed  for  lexical  processing  of 
character  input  streams.  The  major  difference  between  LEX  and  YACC  is  the 
specification  format  for  the  rules.  In  the  LEX  specification,  the  rules  are  regular 
expressions  similar  to  those  used  in  many  text  editors.  Given  a  regular 
expression  specification  of  the  input  strings,  LEX  generates  a  program  that 
partitions  the  input  stream  into  tokens  and  communicates  these  tokens  to  the 
parser. 

The  parser  produced  by  YACC  consists  of  a  finite-state  automaton  with  a 

stack  that  performs  a  top-down  parse,  with  left-to-right  scan  and  a  one  token 

look-ahead.    Control  of  the  parser  begins  initially  with  the  highest-level  grammar 

rule.      Control    descends    through    the    grammar    hierarchy,    calling    lower    and 

lower-level  grammar  rules  while  searching  for  appropriate  tokens  in  the  input.    As 
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the  appropriate  tokens  are  recognized,  some  portions  of  the  mapping  code  are 

invoked   directly.     In   other  cases,  tokens  are  propagated  upwards  through  the 

grammar  hierarchy   until   a  higher-level  rule  has  been  satisfied,   and   a  further 

translation  is  performed.    When  all  of  the  necessary  lower-level  grammar  rules 

have  been  satisfied  and  control  has  ascended  to  the  highest-level  rule,  the  parsing 

and  translation  processes  are  complete.    In  Section  B  and  C,  we  give  illustrative 

examples  of  these  processes.    We  also  describe  the  subsequent  semantic  analysis 

necessary  to  complete  the  mapping  process. 

2.     The  Grammar  Rules 

To  begin  with  the  implementation  specification  for  KMS,  we  utilized  the 

Adaplex   grammar   in   the    Backus-Naur   Form    (BNF),   provided   to    us    by    Dr. 

Stephen  Fox  of  CCA  [Ref.  25].    The  Adaplex  BNF  grammar  was  then  reduced  to 

a   pure   Daplex   BNF   grammar  by   eliminating   all   system   dependent    and   Ada 

related  goals  and  rules  [Ref.  11].    In  this  thesis,  we  further  modified  the  grammar 

for     three    reasons.     First,    the    original    grammar    was    too    complicated    for 

implementation.    There    were    many    layers    of   recursive    rules    that    made    the 

grammar  difficult  to  comprehend  and  implement.    W7e  modified  the  grammar  in  a 

way  that  recursions  in  the  grammar  were  reduced  to  the  minimum  without  losing 

the  flavor  of  the  Daplex  language.    Second,  when  YACC  was  used  to  implement 

the   grammar  interleaved  with   C    procedures,   ambiguities  for   some   rules  with 

multiple  alternatives  of  similar  formats  often  occurred.     In  most  cases,  YACC 

would  invoke  its  disambiguating  rules  [Ref.  23:  pp.  11-14]  and  produce  a  correct 
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parser  by  selecting  one  of  the  valid  steps  wherever  it  has  a  choice.  However,  if  a 
procedure  (action)  must  be  done  before  the  parser  can  be  sure  which  rule  is  being 
recognized,  then  the  application  of  disambiguating  rules  is  inappropriate.  In  this 
case,  YACC  issues  an  error  message  and  ignore  all  conflicting  rules  except  the  first 
one.  Third,  this  and  prior  language  interfaces  for  SQL.  DL/I,  and  CODASYL- 
DML  have  stressed  implementations  of  a  subset  of  each  language.  This  rich  subset 
provides  all  of  the  basic,  primary  database  operations.  Our  implementation  for 
Daplex  follow  this  philosophy. 

We  now  would  like  to  demonstrate  the  problem  of  ambiguity  by  an 
example.  In  Figure  5.1,  The  grammar  rule  for  <set-constructor>.  which  has  four 
alternatives,  is  perfectly  acceptable  in  BNF  form.  To  implement  this  grammar 
rule  in  YACC,  we  would  have  codes  that  are  in  the  form  shown  in  Figure  5.2.  In 
this  example,  there  is  ambiguity  on  whether  procedure-2  or  procedure-3  should  be 
used  when  the  parser  sees  a  LCB  followed  by  a  simple  expr.  The  resulting  parser 
created  by  YACC  then  has  to  choose  to  recognize  only  the  first,  second  and  fourth 


<set-constructor>  ::= 

LCB  <basic-expr-list>  RCB 

LCB  <simple-expr>  IN  <namel>  WHERE  <dap-expr>  RCB 
LCB  <simple-expr>  IN  <dap-range>  WHERE  <dap-expr>  RCB 
|     LCB  RCB 

Figure  5.1.    The  Grammar  Rule  For  <set-constructor>. 
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set   constructor  : 

LCB  {  procedure- 1  }  basic   expr  list  {  procedure- la  }  RCB 
LCB  {  procedure-2  }  simple  expr  IN  namel 

WHERE{  procedure-2a  }    dapexpr  RCB 
LCB  {  procedure-3  }  simple  expr  IN  dap   range 
WHERE  {  procedure~3a  }  dapexpr  RCB 
|     LCB  {  procedure-4  }  RCB 

Figure  5.2.    The  Implementation  of  <set-constructor>  in  YACC. 


alternative  rules.  Any  statement  written  in  the  third  form  is  reported  as  having 
syntax  error  by  the  parser.  Therefore,  it  is  necessary  to  rewrite  the  grammar  rules 
so  that  the  same  inputs  are  read  but  there  are  no  conflicts.  The  modified  version 
of  the  grammar  in  our  implementation  is  listed  in  Appendix  D. 

B.    MAPPING  THE  DATABASE  DEFINITION  LANGUAGE 

In  this  section,  we  describe  the  additional  data  structures  required  to 
implement  the  database  definitions  portion  of  the  KMS.  This  is  followed  by  the  a 
general  description  of  the  mapping  algorithms. 

1.     The  Data  Structures 

In  addition  to  the  data  structures  described  in  Chapter  III,  KMS  also 
requires  some  data  structures  for  use  during  the  mapping  process.  We  describe 
two  of  these  data  structures  that  are  shared  by  the  database  definitions  portion 
and  the  database  manipulation  portion  here.  Those  data  structures  that  are  used 
solely  in  the  manipulation  portion  are  discussed  in  a  later  section.    At  the  end  of 
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the  mapping  process,  and  before  control  is  returned  to  LIL.  all  of  the  data 
structures  unique  to  KMS  that  have  been  allocated  during  the  mapping  process 
are  freed. 

The  first  data  structure  is  dap  kms  info,  shown  in  Figure  5.3.  It  is  used 
to  accumulate  information  during  the  grammar  parse.  It  is  a  record  that  allows 
the  information  to  be  saved  until  a  point  in  the  parsing  processing  where  it  may 
be  utilized  in  the  appropriate  portion  of  the  translation  process.  The  first  three 
fields  in  this  data  structure,  point  to  the  same  data  structure,  ident   list,  which 


struct  dap 

{ 

struct 

kms   info 

ident   list 

*dki  temp  ptr; 

struct 

ident   list 

*dki  namel   ptr; 

struct 

ident   list 

*dki   id  ptr; 

struct 

sub  node  list 

*dki  overfirst   ptr; 

struct 

der  non  node 

dki   der  non: 

struct 

sub  non  node 

dki   sub   non; 

struct 

ent  non  node 

dki  ent  non: 

struct 

function  node 

dki  funct; 

struct 

ent  value 

*dki  ev  ptr; 

struct 

dap  create   list 

*dki  create; 

struct 

req  line   list 

*dki   req  ptr; 

struct 

create  ent   list 

*dki  eel  ptr; 

struct 

overlap   node 

*dki  create  ovrptr; 

struct 

ent  value  list 

dki  evl  ptr; 

struct 

dml  statement 

*dml  statement   ptr; 

struct 

}; 

loop   info 

*loop   info  ptr; 

Figure  5.3.    The  dap  kms   info  Data  Structure. 
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temporarily  holds  a  list  of  names  for  comparison  with  the  identifiers.  Whenever  a 
list  of  identifiers  is  read,  the  name  of  each  identifier  is  kept  in  the  linked  list 
pointed  to  by  dki  temp  ptr.  The  dki  temp  ptr  always  points  to  a  list  that 
contains  the  names  of  the  identifiers  in  the  current  list.  When  there  are  more 
than  one  list  of  identifiers  to  be  compared,  for  example  in  the  overlapping  rule 
declaration,  both  the  dki  namel  ptr  and  dki_temp_ptr  pointer  are  used.  For 
type  or  subtype  declarations,  both  the  dki  temp_ptr  and  the  dki_id_ptr  are  used. 
The  dki  id  ptr  points  to  a  linked  list  that  contains  the  names  of  all  type  and 
subtype  identifiers  declared  so  far.  Whenever  a  new  type  or  subtype  declaration  is 
parsed,  the  name  of  the  new  type  or  subtype  identifier  is  checked  against  this  list 
to  ensure  no  duplicate  declarations.  The  dki  overfirst  ptr  is  used  when  parsing 
an  overlapping  rule  declaration  to  keep  the  pointers  to  the  gen  sub  node  in  the 
first  list  of  the  declaration.  The  next  four  fields  are  used  to  store  information  for 
der  non  node,  sub  non  node,  ent  non  node  and  function  node  temporarily. 
The  dki  ev  ptr  holds  a  pointer  to  a  temporary  storage  of  entity  values.  The  last 
six  fields  hold  temporary  storage  or  pointers  to  data  structures  used  solely  by  the 
database  manipulation  portion  (see  Section  C). 

The  ident  list  data  structure,  depicted  in  Figure  5.4,  contains  only  two 
fields.  The  first  field  is  a  character  array  that  holds  the  identifier  name.  The 
second  field  points  to  the  next  ident  list  component.  This  data  structure  provides 
a  linked  list  to  maintain  identifier  names. 
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struct  ident   list 

{ 

char  name  [ENLength  +  l]; 

struct       ident   list  *next; 

}; 

Figure  5.4.    The  ident   list  Data  Structure. 


2.     The  Algorithm 

The  mapping  process  of  the  database  definitions  portion  in  KMS  is 
relatively  straightforward.  It  involves  the  parsing  of  the  database  schema  and  the 
transformation  of  the  corresponding  database  definitions  onto  the  data  structures 
described  in  Chapter  III.  The  detailed  implementation  of  the  mapping  using 
YACC  and  C  is  given  in  Appendix  C.  In  this  section,  we  provide  a  general 
description  of  the  algorithm.  The  schema  of  the  sample  database,  univ,  (see 
Figure  2.1  again)  represents  a  typical  database  declaration  in  Daplex.  It  includes 
the  type  and  subtype  declarations,  the  entity  and  non-entity  declarations,  the 
function  declarations,  the  overlapping  constraint  declarations,  and  the  uniqueness 
constraint  declarations.  We  test  our  implementation  of  the  DDL  portion  of  KMS 
by  parsing  this  database  schema. 

For  each  database  declaration,  the  database  name  is  checked  against  the 
current  list  of  databases  in  the  system  which  is  the  linked  list  pointed  to  by 
dn  fun  in  dbid  node  (see  Figure  3.1).    If  the  database  name  has  been  declared 
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before,  the  transaction  is  rejected.  Otherwise,  a  new  ent  dbid  node  is  allocated 
and  appended  to  the  current  list  of  databases. 

For  type  declarations  and  subtype  declarations,  similar  checks  are  made 
to  ensure  that  there  is  no  duplication  of  type  or  subtype  names.  These 
declarations  include  those  for  the  entity  type,  the  entity  subtype,  the  nonentity 
base-type,  the  nonentity  subtype  and  the  derived  nonentity  type.  KMS  recognizes 
the  difference  between  these  declarations  by  their  different  formats  and  creates 
corresponding  data  structures  to  store  the  information.  The  data  structures  are 
ent  node  (Figure  3.3),  gen  sub  node  (Figure  3.4).  ent  non  node  (Figure  3.5), 
sub  non  node  (Figure  3.6)  and  der  node  node  (Figure  3.7).  When  there  is  no 
error  detected,  an  appropriate  node  is  created  and  appended  to  the  corresponding 
linked  list  pointed  to  in  the  data  structure  ent  dbid  node.  The  corresponding 
counter  in  ent   dbid   node  is  also  updated. 

For  entity  type  or  subtype  declarations,  incomplete  specification  is 
allowed.  In  this  case,  a  skeleton  structure  of  the  ent  node  or  gen  sub  node  with 
only  the  name  field  filled  is  created.  When  the  complete  declarations  is  found 
later,  then  the  other  necessary  information  are  inserted  into  the  structure. 

For  function  declarations,  the  function  node  data  structure  (Figure  3.9) 

is  used.  Depending  on  the  function  type  declared,  the  appropriate  fields  in  the 

function_node  structure  are  updated.    When  more  than  one  function  are  declared, 

a  linked  list  of  function  node  is  created.    At  the  end  of  the  function  declarations, 

the    linked    list    that    has    been    created    is    then    added    to    the    ent   node    or 

76 


gen_sub_node  under  which  the  functions  are  declared.  If  the  function  type  is 
entity,  then  the  ent_node  or  gen  sub  node  of  this  entity  is  recalled  and  its 
indicator  in  the  data  structure,  en  terminal  or  gsn  terminal,  is  updated  to  reflect 
that  this  entity  is  not  a  terminal. 

For  overlapping  constraint  declarations,  two  identifier  lists  are  read  in. 
Error  checkings  are  performed  to  ensure  that  the  identifiers  in  the  lists  are 
terminal  generalized  subnode  types  and  they  all  have  the  same  base  type.  The 
overlapping  information  are  then  stored  in  the  data  structure  overlap  node 
(Figure  3.8)  and  appended  to  the  edn   ovrptr  of  the  ent   dbid   node. 

For  the  uniqueness  constraint  rule,  we  traverse  the  ent  node  and  the 
gen  sub  node  data  structures  to  search  for  the  entity-type  node  or  generalized 
subnode  that  matches  the  entity  identifier  declared.  Subsequently,  the 
function  node  data  structures  are  traversed  to  locate  the  function  nodes  and  the 
fn  unique  field  of  each  of  the  function  nodes  found  is  set  to  true. 

Three   identifiers   list   rules   are  used   in   the   implementation.     They   are 

new  id   list,  id   list  and  namel   list.    The  basic  intent  of  the  three  rules  are  the 

same  -  to  recognize  a  sequence  of  identifiers.    However,  three  different  rules  are 

used  because  different  actions  are  needed  in  various  situations.    The  new_id_list 

rule  detects  duplicate  declarations  of  name_id  against  dki_id_ptr  but  does  not 

issue  an  error  message.    Instead,  an  error  flag  is  turned  on  so  that  the  procedure 

immediately  following  the  rule  has  the  option  of  ignoring  duplication.    This  is 

necessary  because  incomplete  declarations  of  entity  types  are  allowed  in  Daplex. 
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The  id  list  rule  checks  against  dki  temp  ptr  and  displays  error  messages  if  there 
is  a  duplication.  The  namel  list  rule  checks  duplication  against  dki  namel  ptr 
and  issues  an  error  message  when  required. 

C.    MAPPING  THE  DATA  MANIPULATION  LANGUAGE 

In  this  section,  we  describe  the  data  structures  that  are  used  solely  in  the 
DML  portion  of  KMS.  This  is  followed  by  a  general  description  of  the  mapping 
algorithm. 

1.     The  Data  Structures 

The  database  manipulation  portion  of  KMS  uses  many  data  structures  for 
temporary  storage  of  information.  They  are  dap  create  list,  dap  av  pair  list, 
req  line  list,  create  ent  list,  dap  expr  info,  relation  list,  simple  exprl, 
simple  expr2,  simple  expr3,  simple  expr4,  funct  appln,  indexed  component, 
set  constructor,  set  construct2.  set  construct3,  dap  range  info,  basic  expr  list, 
comp  assoc  list,  domain  info,  loop  info,  order  comp  list,  dml  statement2  list, 
dml  statement.  These  data  structures,  depicted  in  Appendix  A,  are  directly 
derivable  from  the  grammar  rules.  For  example,  the  data  structure  domain  info 
is  derivable  from  the  domain  rule  in  the  grammar. 

Why  are  we  taking  this  approach?  When  we  first  started  on  the 
implementation  of  the  database  manipulation  portion  of  KMS,  we  tried  to 
translate  the  Daplex  transactions  directly  to  the  ABDL  transactions.  However, 
we  encountered  some  problems  and  could  not  proceed  in  this  approach  due  to  the 
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recursive  nature  of  the  Daplex  grammar  rules.  Another  approach  to  the  problem 
was  needed.  So.  we  built  the  data  structures  described  above  to  correspond  to  the 
database  manipulation  portion  of  the  grammar  rules.  During  the  parsing  process, 
information  on  the  transactions,  conforming  to  the  Daplex  grammar  rules,  are 
transferred  to  the  corresponding  data  structures.  At  the  end  of  the  parsing 
process,  separate  procedures  would  then  be  used  to  read  from  the  data  structures 
and  convert  them  into  ABDL  transaction  formats. 
2.     The  Algorithm 

When  the  user  wishes  LIL  to  process  Daplex  requests  against  an  existing 
database,  the  task  of  KMS  is  to  translate  the  user's  Daplex  request  to  equivalent 
ABDL  requests.  The  Daplex  request  must  also  be  specified  within  a  rigid  set  of 
grammar  rules  (see  Appendix  D). 

The  DML  statements  in  the  Daplex  grammar  are  represented  by  the 
dml  statement  rule.  This  rule  includes  statements  for  CREATE,  DESTROY, 
MOVE  and  FOR  EACH  transactions.  These  statements,  by  themselves,  can  be 
executed  as  a  valid  transaction  request.  The  second  rule,  dml  statement2,  handles 
those  transactions  that  can  be  executed  within  a  loop  (FOR  EACH)  statement. 
The  statements  that  can  only  be  included  within  a  loop  are  the  assignment- 
statement,  the  include-statement,  the  exclude-statement,  the  destroy-statement, 
the  move-statement  and  the  procedure-call  statement. 

As  mentioned  in  the  previous  section,  the  first  step  in  the  translation  of  a 

Daplex  transaction  to  the  ABDL  request(s)  is  to  instantiate  the  data  structures 
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corresponding  to  the  grammar  rules  parsed.  We  chose  the  names  of  the  data 
structures  as  close  as  possible  to  the  corresponding  grammar  rules.  For  example, 
dap  expr   info  for  the  dap   expr  rule  and  set   constructor  for  the  set   constructor 


rule. 


Rules  that  have  more  than  one  alternatives  are  handled  in  two  different 


ways,  depending  on  the  situation.  When  each  of  the  alternative  rules  has  a  single 
corresponding  data  structure,  then  the  new  data  structure  is  just  a  collection  of 
pointers  to  those  corresponding  data  structures.  An  example  of  this  is  the 
simple  exprl  data  structure  for  the  simple-expr  rule  (Figure  5.5).  At  any  one 
time,  only  one  field  in  the  simple   exprl  data  structure  is  active.    In  the  case  that 


<simple-expr>  ::= 
<literal> 

<set-constructor> 
<indexed-component> 
<function-application> 

struct  simple  exprl 

{ 

char  lit  array [LITLength+1]; 

struct  set   constructor 

struct  indexed  component 

struct  funct   appln 

}; 


*set  construct  ptr; 
*  indexed  comp  ptr 
*funct   appln  ptr; 


Figure  5.5.    The  Grammer  Rule  and  Data  Structure  for  <simple-expr>, 
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the  alternative  rules  do  not  correspond  to  single  data  structures,  new  data 
structures  are  created  for  the  alternative  statements.  For  example,  the  relation 
rule  has  four  alternative  statements.  The  corresponding  data  structure  is  the 
relation_list  shown  in  Figure  5.6.  Four  pointers  to  the  data  structures, 
simple_exprl.  simple_expr2.  simple  expr3  and  simple  expr4,  are  utilized  and 
correspond  to  the  four  alternative  statements. 


<relation>  ::  = 

<simple-expr> 

<simple-expr>  <relational-operator>  <simple-expr> 
<simple-expr>  <in-op>  <dap-range> 
<simple-expr>  <in-op>  <namel> 

struct  relation   list 

{ 

struct  simple  exprl  *simple  exprl  ptr; 

struct  simple  expr2  *simple  expr2  ptr; 

struct  simple  expr3  *simple  expr3  ptr; 

struct  simple   expr4  *simple  expr4  ptr; 

struct  relation   list  *next; 

}; 

Figure  5.6.    The  <relation>  Rule  and  The  relation   list  Data  Structure. 


D.    FUTURE  WORKS 

As  we  reached  this  stage  in  the  implementation,   a  decision  was  made  to 
discontinue  the  implementation  effort  for  this  thesis  and  leave  the  remainder  for 
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future  efforts  due  to  a  time  limitation.    In  this  section,  we  outline  the  work  that 
needs  to  be  done  to  complete  the  implementation. 
1.     Completing  the  Kernel  Mapping  System 

The  DDL  portion  of  KMS  has  been  fully  implemented.  As  for  the  DML 
portion,  the  implementation  of  the  parser  that  translates  the  Daplex  database 
manipulation  request  to  the  corresponding  data  structures  has  been  completed. 
However,  the  procedures  for  mapping  the  data  structures  to  the  ABDL  request 
have  not  been  implemented. 

To  complete  the  implementation  of  KMS.  we  need  a  procedure  to  access 
the  dml  statement  ptr  field  of  the  dap  kms  info  data  structure  (see  Figure  5.3). 
The  dml  statement  ptr  points  to  the  data  structure  dml  statement,  as  shown  in 
Figure  5.7.  There  are  four  pointers  in  the  dml  statement  data  structure  which 
point  to  the  dap  expr   info,  the  indexed  component,  the  basic   expr  list  and  the 


struct  dml  statement 

{ 

int  type; 

struct       dap  expr  info  *dap  expr  ptr; 

struct       indexed  component  *indexed   comp  ptr; 
struct       basic   expr  list  *basic   expr  ptr; 

struct       comp   assoc   list  *comp   assoc   ptr; 

}; 

Figure  5.7.    The  dml  statement  Data  Structure. 
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comp_assoc_list  data  structures.  Four  additional  procedures,  one  for  each  of  the 
aforementioned  data  structures,  are  required  to  read  from  the  data  structures  and 
translate  the  information  in  the  data  structures  into  ABDL  request (s). 

2.  The  Kernel  Controller 

Once  KMS  has  performed  the  necessary  transformations  and  translations 
of  Daplex  requests  into  their  equivalent  ABDL  requests.  KC  controls  the 
submission  of  the  ABDL  requests  to  MBDS  for  processing.  After  ABDL  processed 
the  requests,  control  is  returned  to  LIL. 

Just  as  data  structures  are  specified  for  LIL  and  KMS.  we  also  require 
data  structures  that  are  specified  for  KC  to  recognize  the  different  types  of  ABDL 
requests.  We  need  a  KC  procedure  to  control  the  processing  of  each  of  the  ABDL 
request  (i.e.,  INSERT,  DELETE,  UPDATE,  and  RETRIEVE). 

3.  The  Kernel  Formatting  System 

KFS  is  the  fourth  module  in  the  language  interface,  and  is  called  by  the 
kernel  controller  when  it  is  necessary  to  display  results  to  the  user.  The  only  task 
that  KFS  performs  is  to  display  on  the  screen  the  result  returned  by  MBDS  in 
Daplex  format.  Therefore,  it  is  the  easiest  module  to  implement  in  the  language 
interface. 

Both   the  kernel  controller  and  the  kernel  formatting  system  have  not 

been  implemented  yet.  However,  in  our  implementation  of  LIL  and  KMS,  a  stub 

is  inserted  wherever  KC  or  KFS   is  to  be  called.     The  name  of  the  stubs  are 

f  kernel   controller   and  f  kernel  formatting  system,   respectively.     So,   the  next 
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implementor  may  proceed  to  implement  the  two  modules  using  the  same  names. 
After  the  two  modules  are  implemented,  all  we  need  to  do  for  integrating  the  four 
modules,  i.e.,  LIL,  KMS,  KC.  and  KFS,  is  to  replace  the  stubs. 
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VI.   THE  CONCLUSION 

In  this  thesis,  we  have  presented  a  partial  specification  and  implementation 
of  a  Daplex  language  interface  .  This  is  one  of  four  language  interfaces  that  the 
multi-lingual  database  system  supports.  When  complete,  the  multi-lingual 
database  system  will  be  able  to  execute  transactions  written  in  four  well-known 
and  important  data  languages,  namely,  SQL,  DL/I,  Daplex,  and  CODASYL.  The 
work  accomplished  in  this  thesis  is  part  of  the  ongoing  research  effort  being 
conducted  at  the  Laboratory  for  Database  Systems  Research,  located  at  the  Naval 
Postgraduate  School  in  Monterey,  California. 

The  need  to  provide  an  alternative  to  the  development  of  separate  stand- 
alone database  systems  for  specific  data  model/data  language  constructions  has 
been  the  motivation  for  this  research.  In  this  regard,  we  have  first  demonstrated 
the  feasibility  of  a  multi-lingual  database  system  (MLDS)  by  showing  how  a 
software  Daplex  language  interface  can  be  constructed. 

A  major  goal  has  been  to  design  a  Daplex-to-ABDL  interface  without 
requiring  any  change  be  made  to  ABDL  or  the  underlying  database  system, 
MBDS.  Our  partial  implementation  may  be  completely  resident  on  a  host 
computer  or  the  controller.  All  of  the  Daplex  transactions  are  executed  and 
processed    in    the    Daplex    interface.      MBDS    continues   to   receive   and    process 
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transactions  written  in  the  unaltered  syntax  of  ABDL.  In  addition,  our 
implementation  has  not  required  any  change  to  the  syntax  of  Daplex.  The 
interface  is  completely  transparent  to  the  Daplex  user  as  well  as  to  the  MBDS 
user. 

In  retrospect,  our  level-by-level,  top-down  approach  to  the  design  of  the 
interface  has  been  a  good  choice.  This  implementation  methodology  has  been  the 
most  familiar  to  us  and  proved  to  be  relatively  efficient  in  time.  In  addition,  this 
approach  permits  follow-on  programmers  to  easily  maintain  and  modify  the  code. 

In  this  thesis,  we  have  fully  implemented  the  LIL  module  and  partially 
implemented  the  KMS  module.  A  minor  part  of  the  KMS  module  and  the  KC 
and  KFS  modules  are  left  for  another  programmer  to  follow  up.  It  is  a  great 
disappointment  that  we  have  not  been  able  to  complete  the  implementation.  The 
primary  reason  for  our  failure  has  been  the  complexity  of  the  functional  model 
and  the  Daplex  language.  The  total  amount  of  codes  required  for  the 
implementation  far  exceed  those  required  for  the  other  interface  implementations. 
In  terms  of  lines  of  code,  we  have  implemented  the  same  number  of  lines  as  in  the 
entire  language  interface  of  the  CODASYL  implementation.  We  have  also 
outlined  how  the  remaining  implementation  should  proceed. 

We   have   shown   that   a   Daplex   interface  can   be   implemented   as  part   of 

MLDS.    We  have  provided  a  partial  software  structure  to  facilitate  this  interface, 

and   we   have   developed   actual   code  for   implementation.   The  next   step  is  to 

complete  the  development  of  the  Daplex  interface.    When  complete,  this  interface 
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can  be  integrated  with  the  other  implementations  and  tested  as  a  whole  to 
determine  how  efficient,  effective,  and  responsive  it  can  be  to  a  users'  needs.  The 
results  may  be  the  impetus  for  a  new  direction  in  database  system  research  and 
development. 
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APPENDIX  A 


THE  DAPLEX  DATA  STRUCTURES 


union    dbid   node 


{ 


struct  rel   dbid   node     *dn   rel; 

struct  hiedbidnode     *dn_hie; 

struct  net  dbid   node    *dn_net; 

struct  fun   dbid    node    *dn_fun: 
} 

struct      fun   dbid    node 

*  structure  def  for  each  entity-relationship  dbid  node  */ 

{ 

char  fdnnamelDBXLength  +  lj; 

struct  ent    non   node      *fdn   nonentptr; 

int  fdn    num   nonent;  *  number  of  nonentity  types  * 

struct  ent   node  *fdn   entptr; 

int  fdn    num   ent;  '*  number  of  entity  types  */ 

struct  gen  sub   node      xfdn   subptr: 

int  fdn    num    gen;  /*  number  of  gen   subtypes  * 

struct  sub   non   node     *fdn   nonsubptr; 

int  fdn   num   nonsub;  /*  number  of  nonentity  subtypes  */ 

struct  der  non   node      *fdn   nonderptr; 

int  fdn   num   der;  /*  number  or  nonentity  derived  types  */ 

struct  overlap  node       *fdn   ovrptr; 

int  fdn   num   ovr;  /*  number  of  overlap   nodes  */ 

struct  fun   dbid   node    *fdn   next   db; 


\\ 


struct     ent   node 

/*  structure  definition  for  each  entity  node 
{ 


char 

en   name  ENLe 

int 

en   last   ent   id; 

int 

en   num   funct; 

int 

en   terminal: 

struct 

function   node 

struct 

ent   node 

/*  keeps  track  of  the  unique  id  assigned 
to  each  entity  type  in  the  database  */ 
/*  number  of  assoc.  functions    */ 
/*  if  true  (  =  1)  it  is  a  terminal  type  */ 

fen  ftnptr; 

'en   next  ent; 


}; 


struct      gen_sub_node 

/*  structure  def  for  each  generalization  (supertype/subtype)  node  */ 


{ 


char  gsn_name[ENLength  +  l]; 

int  gsn   num   funct;  /*  number  of  assoc.  functions*/ 

int  gsnterminal;  /*  if  true  (  =  1)  it  is  a  terminal  type  */ 

struct  ent   node  list       *gsn   entptr;  /*  ptr  to  entity  supertype  */ 

int  gsn   num   ent;  /*  number  of  entity  supertypes  */ 
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struct 
struct 
int 
struct 


h 


function _node  *gsn  ftnptr: 

sub_node_list  *gsn  subptr:     *  ptr  to  subtype  supertype  * 
gsn_num_sub:  ''*  number  of  subtype  supertypes  x 

gen   sub   node  xgsn  next   genptr: 


struct      ent    non   node 

structure  def  for  each  base-tvpe  nonentity  node 
{ 


char 

enn   name  ENLer 

char 

enn   type; 

int 

enn   total   length 

int 

enn  range: 

int 

enn   num   values: 

struct 

ent   value 

int 

enn   constant: 

struct 

ent    non    node 

either  i(nteger).  s(tring). 

f(loat).  e(numeration).  or  b(oolean) 

max  length  of  base-type  value 

true  or  false  depending 

on  whether  there  is  a 

range.    If  range  exists. 

there  must  be  two  entries- 

into  ent   value 

x  number  of  actual  values  * 
enn   value:  '*  actual  value  of  base-type 

'*  boolean  to  refelect  constant  value 
enn    next   node: 


}: 


struct     sub   non   node 

/*  structure  def  for  each  subtvpe  nonentitv  node 

{ 

snn   name  ENLength  —  1  ; 


char 
char 

int 
int 


snn_type: 

snn   total   length 
snn  range; 


int 

struct 

struct 


snn   num_vaiues: 
ent   value 
sub  non   node 


I*  either  i(nteger).  s(tring). 

f(loat).  e(numeration).  or  b(oolean) 
1  max  length  of  subtype  value 

*  true  or  false  depending 
on  whether  there  is  a 
range.    If  range  exists, 
there  must  be  two  entries 
into  ent   value 

*  number  of  actual  values 
snn   value:  x  actual  value  of  subtype 
snn   next    node: 


}: 


struct      der   nonnode 

x  structure  def  for  each  derived  type  nonentity  node  */ 


{ 


char 
char 

int 

int 


dnn   name  ENLength  —  1  : 

dnn_type:  '  either  i(nteger).  s(tring). 

f(loat),  e(numeration),  or  b(oolean) 

/*  max  length  of  derived  type  value  */ 

/*  true  or  false  depending  on  whether 

there  is  a  range.    If  range  exists. 

there  must  be  two  entries  in  the 


dnn   total_length: 
dnn   range; 
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int 

struct 

struct 

}; 


entvalue  */ 
dnn   num  values;  /*  number  of  actual  values  */ 

ent   value  *dnn   value;         /*  actual  value  of  derived  type  */ 

der  non   node    *dnn   next    node: 


struct      overlapnode 

/*  structure  def  for  overlapping  constraint  */ 

{ 

base   type   namelENLength+l]; 
sub   node   list      *snlptr; 


char 
struct 
int 
struct 


}; 


num   sub   node;  /*  number  of  subnode  in  the  above  list 
overlap   node       *next; 


struct      functionnode 

/*  structure  definition  for  each  function  type  declaration  */ 


i 


}; 


char  fn   namejENLength  +  lj; 

char  fn   type: 

int  fn   range: 

int  fn   set; 

int  fn   totallength; 

int  fn   num   value; 

struct  ent   value  *fn   value; 

struct  ent   node  *fn_entptr; 

struct  gen   sub   node      *fn   subptr; 

struct  entnon   node      *fn_nonentptr; 

struct  sub  non   node     *fn   nonsubptr; 

struct  der  non   node      *fn   nonderptr; 

int  fn  entnull; 

int  fnunique; 

struct  function   node     *next; 


/*  either  f(loat),  i(nteger).  s(tring) 
b(oolean),  or  e(numeration)  */ 
/*  Boolean  if  range  of  values  */ 
/*  Boolean  if  set  of  values  */ 
/*  max  length  *  ' 
I*  number  of  actual  values  */ 


/*  actual  value 


/ 


/*  ptr  to  entity  type  */ 
/*  ptr  to  entity  subtype  */ 
/*  ptr  to  nonentity  type  */ 
/*  ptr  to  nonentity  subtype  */ 

I 


ptr  to  nonentity  dertype 


/*  initialized  false  set  true  for  no  value  */ 
/*  init  false  -  unique  if  true  */ 


struct      sub   node  list         /*  list  of  ponters  */ 

/*  structure  definition  for  terminal  subtypes  that  define  one  or  more 
subtypes  */ 

{ 
struct  gen  sub  node      *subptr;    /*  only  terminal  subtypes  */ 

struct  sub  node  list      *next; 

}; 

struct      ent   node   list         /*  list  of  pointers  */ 

/*  structure  definition  for  subtypes  with  one  or  more  entity  supertypes  */ 

{ 
struct  entnode  *entptr; 

struct  ent   node   list       *next; 

}; 
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struct      ent   value 

/*  struct  ~        def  for  value  of  'i','s',T,:e',  or  'b'  */ 

{ 
char  *ev_value;         /*  pointer  to  character  string  only  */ 

struct  ent  value  *next; 

}; 

struct      ident   list 

{ 
char  name  JENLength  ■+  lj; 

struct  ident   list  *next; 

}; 


struct      ent    value   list 


{ 


char 

int 

struct 


}; 


type: 

num   values; 

ent   value 


ev   ptr: 


struct      dap   kms   info 


{ 


struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 


ident    list 
ident    list 
ident  _list 
sub   node   list 
der  non    node 
sub  non   node 
ent   non   node 
function   node 
ent   value 
dap  create  list 
reqlinelist 
createentlist 
overlap   node 
ent  value  list 
dml  statement 
loop  info 


*dki   temp   ptr; 

*dki   namelptr: 

"dki   id   ptr; 

*dki  overfirst   ptr; 

dki  der  non; 

dkisubnon; 

dki  ent   non: 

dki  funct; 

*dki_ev_ptr; 

*dki   create; 

*dki_req_ptr; 

*dki_cel_ptr; 

*dki_create_ovrptr; 

dki_evl_ptr; 

*dml   statement    ptr; 

*loop   info   ptr; 


}; 


struct      dap  createlist 
{ 


int 
char 
struct 
struct 


req   type;  /*  Insert  or  Retrieve  */ 

en   namelENLength  +  l]; 

dap   av   pair  list  *av   pairptr; 

dap  create  list  *next; 


}; 


struct     dap   av   pairlist 
{ 


91 


char 

struct 

int 

struct 

struct 


nameENLength  —  1]; 

function   node 

num   value; 

ent   value 

dap  av   pair  list 


}; 


struct     req   line  list 


i 


char  req   linelREQLength'; 

struct  req   line   list 


*ftnptr; 

*valptr; 
*next; 


next; 


struct     create   ent   list 


{ 


struct 
struct 
struct 


ent  node  list 
sub  node  list 
create   ent    list 


}; 


struct      dap  expr  info 
{ 


int 
struct 


relation   type: 
relation    list 


}: 


enl  ptr: 
fsnl_ptr; 
'next: 


Relation,  AndRelation  or  OrRelation 
*rel    list    ptr: 


struct     relation   list 


i 


struct 
struct 
struct 
struct 
struct 


simple  exprl 
simple  expr2 
simple  exprS 
simple  expr4 
relation   list 


}; 


struct      simpleexprl 
{ 


*simple  exprl  ptr; 
*simple  expr2_ptr; 
*simple  expr3  ptr: 
*simple_expr4_ptr; 
*next; 


char 
struct 
struct 
struct 


lit    array[LITLength-t-l]; 
set   constructor  *set   construct   ptr: 

indexed   component  *indexed_comp_ptr; 

funct   appln  *funct   appln   ptr; 


}; 


struct     functappln 

{ 
int  type;  /*  COUNT,  SUM,  AVG,  MIN,  MAX  */ 

/*  The  followings  are  structures  for  expr  types  in  the  grammar  */ 
char  name   id[ENLength  -+■  l]; 


struct 
struct 


}; 


set   constructor 
indexed   component 


set  constructptr; 
"indexed   comp  ptr; 
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struct      indexed   component 


{ 


char 
char 
char 
struct 


}; 


nameid'ENLength  +  l]; 

type;  /*  Entity.  GenSub,  LoopParameter,  Function  */ 

parentnameiENLength  +  lj; 

indexed   component  *next; 


struct      set   constructor 


struct 
struct 
struct 


}; 


basic  expr  list 
set  construct2 
set   constructs 


*basic   exprptr; 
*set   construct2_ptr; 
*set   constructs   ptr; 


struct      set   construct2 


{ 


struct 

char 

struct 


'simple  exprl   ptr; 


simple_exprl 

nameliENLength  -  lj; 

dap  expr  info  dap  expr   ptr; 


h 


struct      dap  range  info 


{ 


int 

char 

char 


range  type:  /*  Integer  or  Float  */ 

first   value[FLTLength  —  lj; 
second   value  FLTLength  +  l]; 


}; 


struct      set   constructs 


{ 


struct 
struct 
struct 


simple   exprl 
dap  range   info 
dap  expr  info 


*simple   exprlptr; 
dap   range; 
dap  expr  ptr; 


}; 


struct      basic   expr  list 


{ 


char 
struct 
struct 
struct 


lit_array[LITLength  +  l]; 

indexed   component  *indexed  compptr; 

functappln  *funct_appln_ptr; 

basic   expr  list  *next; 


}; 


struct      comp   assoc   list 
{ 


char 

struct 

struct 


name[ENLength  +  1]; 
simpleexprl 
comp  assoc   list 


simple  expr; 
*next; 


}; 
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struct      simple  expr2 

{ 

struct  simple  exprl 

int  rel   operator; 

struct  simpleexprl 

}; 

struct      simple  exprS 

{ 

struct  simple  exprl 

int  in  op: 

struct  dap   range  info 

}; 


*  first  _expr; 
*second   expr; 


*simple_expr; 
/*  INOp  or  NINOp  */ 
*dap  range; 


struct      simple  expr4 

{ 

struct  simple  exprl  *simple   expr; 

int  inop:"  /*  INOp  or  NINOp  */ 

char  name   id  ENLength  +  1  : 

}; 


struct      domain   info 


{ 


/*  only  one  of  the  first  two  fields  is  active  at  one  time  */ 
/*  see  loopexpr  in  grammar  */ 
struct  indexed   component 

char  name[ENLength  +  lj; 

struct  dap  expr  info 


'indexed   comp   ptr; 

*dap  expr  ptr;     /*  optional  field  */ 


}; 

struct      loop   info 


{ 


char 

struct 

struct 

struct 

struct 

struct 


loop_parameter[ENLength  4-  lj; 


ent   node 
gen   sub   node 
domain   info 
order  comp  list 
dml   statement2   list 


}: 


entptr; 
*subptr; 
domain; 

*order  comp  ptr; 
*dml   statement2   list   ptr: 


struct      order  comp   list 


{ 


int 

struct 

struct 


}; 


sort   order; 
indexed   component 
order  comp  list  *next; 


/*  ASCENDING  or  DESCENDING  */ 
'indexed   comp   ptr; 


struct     dml_statement2   list 

{ 
struct  dmlstatement 

struct  dml  statement2   list 


'dml  statement2   ptr: 


next; 
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}; 

struct      dml  statement 

{ 

int  type;                      /*    Assignment,  Include,  Exclude. 

Destroy,  Move,  Procedure,  Create  */ 

struct  dap  expr  info                    *dap_expr_ptr; 

struct  indexed   component          *indexed_comp_ptr; 

struct  basic   expr  list                   *  basic   expr   ptr; 

struct  comp   assoc   list                  *comp   assoc   ptr; 

}; 
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APPENDIX  B 
THE  LIL  MODULE 
1.     FILE  :  lil.c 

^include  <stdio.h> 
#include  "licommdata.def" 
#include  "struct. def" 
#include  "flags. def 
^include  "dap.ext" 
#include  "lil.dcl" 

f  languageinterface   layer() 

/*    This  proc  allows  the  user  to  interface  with  the  system.    */ 
/*    Input  and  output:  user  DAPLEX  requests  */ 


mt        num; 

int        stop;  /*  boolean  flag 


#ifdef  EnExFlag 

printf  ("Enter  f  language   interface   layer\n"); 
#endif 

dapinitQ; 

/*  initialize  several  ptrs  to  different  parts  of  the  user  structure  */ 
/*  for  ease  of  access  */ 

dapinfo   ptr    =  &(cuser  dap   ptr->ui  li   type.li   dap); 
tran   info  ptr  =  &(dap   info  ptr->dpi   dml   tran); 
first_req_ptr  =  &(tran_info_ptr->ti_first_req); 
curr_req_ptr    =  &(tran   info  ptr->ti  curr  req); 

/*  the  followings  are  inserted  for  testing  build   ddl   files  only  */ 

/* 
dap_info_ptr->dpi  curr  db.cdi   db.dn   fun  =  dbs  dap  head    ptr.dn   fun; 

f_build_ddl_files();_ 

7 

/*  end  test  code  */ 

stop  =  FALSE; 

while  (stop  ==  FALSE) 

{ 
/*  allow  user  choice  of  several  processing  operations  */ 
printf  ("\nEnter  type  of  operation  desired\n"); 
printf  ("\t(l)  -  load  new  database\n"); 
printf  ("\t(p)  -  process  existing  database\n"); 
printf  ("\t(x)  -  return  to  the  operating  system\n"); 
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dap_info_ptr->dap_answer  =  get    ans(tnum); 

switch  (dap_info_ptr->dap   answer) 

{ 
case  T:  /*  user  desires  to  load  a  new  database  */ 

f  load    new(); 

break; 
case  'p':  /*  user  desires  to  process  an  existing  database  */ 

f  process  old(); 

break; 
case  'x':  /*  user  desires  to  exit  to  the  operating  system  */ 

/*  database  list  must  be  saved  back  to  a  file     */ 

stop  =  TRUE; 

break: 
default:    /*  user  did  not  select  a  valid  choice  from  the  menu  */ 

printf  ("\nError  -  invalid  operation  selected\n"); 

printf  ("Please  pick  again\nM); 

break: 
}  /*  end  switch  */ 

/*  return  to  main  menu  *, 

}  /*  end  while  */ 

#ifdef  EnExFlag 

printf  ("Exit  f  language_interface_layer\n"); 
#endif 

}  /*  end  flanguageinterfacelayer  */ 

dap_init() 
{ 

#ifdef  EnExFlag 

printf  ("Enter  dap_init\n"); 
#endif 

#ifdef  EnExFlag 

printf  ("Exit  dap_init\n"); 
#endif 

}  /*  end  dapinit  */ 

f  load    new() 

/*  This  proc  accomplishes  the  following:  */ 

/*  (l)  determines  if  the  new  database  name  already  exists,  */ 

/*  (2)  adds  a  new  header  node  to  the  list  of  schemas,  */ 

/*  (3)  determines  the  user  input  mode  (file/terminal),  */ 

/*  (4)  reads  the  user  input  and  forwards  it  to  the  parser,  and  */ 

/*  (5)  calls  the  routine  that  builds  the  template/descriptor  files  */ 
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int     num; 

int     more   input;      /*  boolean  flag  */ 

int     proceed;  /*  boolean  flag  */ 

struct  fun   dbid   node  *db   list   ptr,  /*  ptr  to  the  current  db  *  / 

*new   ptr,  /*  ptr  to  a  new  db  structure  */ 

*fun   dbid   node   alloc();  /*  ptr  to  allocated  db  */' 

#ifdef  EnExFlag 

printf  ("Enter  f  load    new\n"); 
#endif 

/*  prompt  user  for  name  of  new  database  */ 

printf  ("[7;7m\nEnter  name  of  database  — >[0;0m  "); 

readstr  (stdin.  dap_info_ptr->dpi   curr_db.cdi_dbname); 

to  caps  (dap   info   ptr->dpi_curr_db.cdi   dbname); 

db   list   ptr  =  dbs   dap   head   ptr.dn   fun; 

while  (db_list_ptr_!=  NULL) 

{ 
/*  determine  if  new  database  name  already  exists  */ 
/*  by  traversing  list  of  entity-relation  db  schemas  */ 
if  ((strcmp(db   list   ptr->fdn   name. 

dapinfo   ptr->dpi_curr_db.cdi_dbname))  =  =  0) 

{ 
printf  ("\nError  -  db  name  already  exists\n"); 
printf  ("l7;7mPlease  reenter  db  name  — >(0:0m  "); 
readstr  (stdin,  dap   info   ptr->dpi   curr  db.cdi   dbname); 

to  caps  (dap   info   ptr->dpi  curr  db.cdi   dbname); 
db_list_ptr  =  dbs_dap_head_ptr.dn_fun; 
}  /*  end  if  */ 
else 

db  list    ptr  =  db   list   ptr->fdn   next   db; 
}  /*  end  while  */ 

/*  continue  -  user  input  a  valid  'new'  database  name  */ 

/*  add  new  header  node  to  the  list  of  schemas  and  fill-in  db  name  */ 

/*  append  new  header  node  to  db  list  &  init  relevent  user  stucture  ptrs  */ 

new   ptr  =  fun    dbid   node   allocQ; 

strcpy  (new_ptr->fdn   name,  dap   info_ptr->dpi_curr_db.cdi_dbname); 

new   ptr->fdn    next   db  =  dbs   dap   head   ptr.dn   fun; 

dbs  dap   head   ptr.dn   fun  =  new   ptr; 

dap   info   ptr->dpi  curr  db.cdi  db.dn   fun  =  new   ptr; 

dap_info_ptr->dpi_curr  db.cdi_attr.an_dattr  ptr  =  NULL; 

/*  check  for  user's  mode  of  input  */ 

moreinput  —  TRUE; 

while  (moreinput  ==  TRUE) 

{ 
/*  determine  user's  mode  of  input  */ 
printf  ("\nEnter  mode  of  input  desired\n"); 
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printf  (" \t(f)  -  read  in  database  description  from  a  file\n"); 
printf  ("\t(x)  -  return  to  the  to  main  menu\n"); 
dap   info   ptr->dap   answer  =  get    ans(&num); 

switch  (dap   info   ptr->dap   answer) 

{ 
case  T:  /*  user  input  is  from  a  file  */ 
f_read   transaction   file(); 

if  (dap   info  ptr->dap  error  !=  ErrReadFile) 

{ 

/*  file  contains  transactions  */ 

/*  dbd  stands  for  database  description  */ 

f_dbd_to_KMS(); 

f_free   requests(); 

if  (dap   info   ptr->dap  error  !=  ErrCreateDB) 

{ 
/*  no  syntax  errors  in  creates  */ 
f_build_ddl_files(): 

f  Kernel   Controller(); 
}     *  end  if  */ 
}    >*  end  if* 
break: 
case    x":     *  exit  back  to  LIL  */ 
more   input  —  FALSE: 
break: 
default:    /*  user  did  not  select  a  valid  choice  from  the  menu  */ 
printf  ("\nError  -  invalid  input  mode  selected\n"); 
printf  ("Please  pick  again\n"); 
break; 
}  /*  end  switch  */ 

if  (dap   info   ptr->dap   error  ==  ErrCreateDB) 

/*  errors  in  creates  so  exit  this  loop  */ 

moreinput  =  FALSE; 
dap   info   ptr->dap  error  =  NOErr; 
}/*  end  while*/ 


#ifdef  EnExFlag 

printf  ("Exit  f_load_new\n"); 

#endif 

}  /*  end  f  load   new  */ 

f  process  old() 

/*    This  proc  accomplishes  the  following:  */ 

/*  (1)  determines  if  the  database  name  already  exists,  */ 
/*  (2)  determines  the  user  input  mode  (file/terminal),  */ 
/*    (3)  reads  the  user  input  and  forwards  it  to  the  parser  */ 

{ 
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int      found,  more   input;  /*  boolean  flags  */ 

int      num: 

struct  fun   dbid   node  *db  list   ptr;  /*  ptr  to  the  current  database  */ 


#ifdef  EnExFlag 

printf  ("Enter  f_process_old\n"); 
#endif 

/*  prompt  user  for  name  of  existing  database  */ 
printf  ("|7;7m\nEnter  name  of  database  — >  0:0m  "); 
readstr  (stdin,  dap   info   ptr->dpi  currdb.cdidbname); 
lo   caps  (dap   info   ptr->dpi   curr  db.cdi  dbname); 
db   list   ptr  =  dbs   dap   head_ptr.dn_fun: 

found  =  FALSE; 

while  (found  ==  FALSE) 

{ 
/*  determine  if  database  name  does  exist 

/*  by  traversing  list  of  entity-relation  schemas  */ 

if  (strcmpfdap   info   ptr->dpi   curr  db.cdi   dbname. db_list_ptr->fdn_name)  =  =  0) 

{ 
found  =  TRUE; 
dap   info   ptr->dpi   curr   db.cdi   db.dn    fun  =  db   list    ptr: 

r 

else 

{ 
db   list   ptr  =  db   list   ptr->fdn   next   db; 

/*  error  condition  causes  end  of  list('NULL')  to  be  reached  */ 

if  (dblistptr  ==  NULL) 

{ 

printf  ("\nError  -  db  name  does  not  exist\n"); 

printf  ("|7;7mPlease  reenter  valid  db  name  — >(0;0m  "); 

readstr  (stdin,  dap_info_ptr->dpi_curr_db.cdi_dbname); 
to_caps  (dap   info   ptr->dpi   curr  db.cdi   dbname); 

db   list   ptr  —  dbs  dap   head   ptr.dn   fun; 
}  /*"end~if  */ 

}  /*  end  else  */ 

}  /*  end  while  */ 

/*  continue  -  user  input  a  valid  existing  database  name  */ 

/*  determine  user's  mode  of  input  */ 

more   input  =  TRUE; 

while  (more  input  ==  TRUE) 

{ 
printf  ("\n\nEnter  mode  of  input  desired\n"); 

printf  ("\t(f)  -  read  in  a  group  of  DAPLEX  requests  from  a  file\n"); 
printf  ("\t(t)  -  read  in  DAPLEX  requests  from  the  terminal\n"); 
printf  ("\t(x)  -  return  to  the  previous  menu\n"); 
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dap_info_ptr->dap_answer  =  get    ans(&:num); 

switch  (dap   info  ptr->dap   answer) 

{ 
case  T:  /*  user  input  is  from  a  file  */ 
f  read   transaction   file(); 
dapreqs_to_KMS(); 
f_free_requests(): 
break; 
case  V:  /*  user  input  is  from  the  terminal  */ 
f  read   terminal(): 
dapreqs   to   KMS(): 
f  free   requests(); 
break; 
case  'x':  /*  user  wishes  to  return  to  LIL  menu  */ 
more   input  =  FALSE; 
break; 
default:   '*  user  did  not  select  a  valid  choice  from  the  menu  */' 
printf  ("  nError  -  invalid  input  mode  selected  \n"); 
printf  ("Please  pick  again\n"); 
break; 
}  /*  end  switch  */ 

}  /*  end  while  */ 

#ifdef  EnExFlag 

printf  ("Exit  f_process_old\n"); 
#endif 

}  /*  end  f  process  old  */ 


2.     FILE  :  lilcommon.c 

#include  <stdio.h> 
#include  <ctype.h> 
#include  <strings.h> 
^include  "licommdata.der' 
^include  "struct. def" 
^include  "flags.def" 
#include  "dap.ext" 
#include  "lil.ext" 

f_dbd_to_KMS() 

/*  This  routine  sends  the  request  list  of  database  descriptions  one    */ 

/*  by  one  to  the  KERNAL  MAPPING  SYSTEM  and  frees  the  list  as  it  goes  */ 

{ 

#ifdef  EnExFlag 
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printf  ("Enter  f_dbd_to_KMS\n"); 
#endif 

dap_info_ptr->dap_operation  =  CreateDB; 

/*  set  the  current  ptr  to  the  first  ptr  */ 

curr   req   ptr->ri   dap   req  =  firstreq   ptr->ri_dap_req; 

/*  now  send  each  request  to  KMS  */ 
while  (curr  req   ptr- >ri   dap  req  !=  NULL) 

{ 

f_kernel   mapping   system  (); 

if   (cuserdap   ptr->ui_li_type.li_dap.dap_error  ==  ErrCreateDB) 
break; 

curr  req   ptr->ri   dap  req  =  curr  req   ptr->ri   dap  req->dri_next_req; 
}  /*  end  while  */ 

/*  reset  the  number  of  requests  */ 
tran   info  ptr->ti  no  req  =  0; 

#ifdef  EnExFlag 

printf  ("Exit  f_dbd_to_KMS\n"); 
#endif 

}  /*  end  fdbdtoKMS  */ 

dapreqs   to  KMS() 

/*  This  routine  causes  the  queries  to  be  listed  on  the  screen.  */ 
/*  The  selection  menu  is  then  displayed  allowing  any  of  the      */ 
/*  queries  to  be  executed.  */ 


{ 


int  proceed;  /*  boolean  flag  */ 

int  quit;  /*  boolean  flag  */ 

int  num; 


#ifdef  EnExFlag 

printf  ("Enter  dapreqs_to_KMS\n"); 
#endif 

num  =  0; 

listdapreqsQ; 

proceed  =  TRUE; 

while  (proceed  ==  TRUE) 

{ 

printf  ("\nPick  the  number  or  letter  of  the  action  desired\n"); 

printf  ("\t(num)  -  execute  one  of  the  preceding  DAPLEX  requests\n"); 

printf  j"\t(d)     -  redisplay  the  file  of  DAPLEX  requests\nM); 

printf  ("\t(x)     -  return  to  the  previous  menu\n"); 

dap  info  ptr->dap   answer  =  get   ans(&num); 
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switch  (dap_info_ptr->dap   answer) 

{ 
case  'n'  :  /*  execute  one  of  the  requests  */ 

if  (num  >  0  &&  num  <=  tran   info  ptr->ti  no  req) 

{ 
find_dapreq  (num); 
/*  This  is  the  default  value  for  di   operation  */ 
/*  If  not  a  retrieve  request,  this  value  is  reset  */ 
/*  in  kernelmapping   system  */ 
dapinfo  _ptr->  dap  operation  =  ExecRetReq; 

quit  =  FALSE; 

while  (quit  ==  FALSE) 

{ 
f_kernel_mapping  system(): 
if  (dap_info_ptr->dap_error  ==  NOErr) 
curr_req_ptr->ri_dap_req  = 

curr_req_ptr->ri_dap_req->dri  subreq: 
else 

quit  =  TRUE: 
if  (currreq   ptr->ri  dap  req  ==  NULL) 
quk  =  TRUE; 
} 

if  (dap_info_ptr->dap_error  ==  NOErr) 
f_Kernel_Controller(); 
}  /*  end  if  */ 
else 

{ 

printf  ("\nError  -  the  DAPLEX  request  for  the  number  you  "); 
printf  ("selected  does  not  exist\n"); 

printf  ("Please  pick  again\n"); 
}  /*  end  else  */ 

break; 

case  'd'  :  /*  redisplay  requests  */ 

list   dapreqs(): 

break; 
case  'x'  :  /*  exit  to  mode  menu  */ 

proceed  =  FALSE; 
tran   info  ptr->ti_no_req  =  0; 

break; 
default  :  f*  user  did  not  select  a  valid  choice  from  the  menu  */ 

printf  ("\nError  -  invalid  option  selected\n"); 

printf  ("Please  pick  again\n"); 

break; 
}  /*  end  switch  */ 

}  I*  end  while  */ 

#ifdef  EnExFlag 
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printf  ("Exit  dapreqs_to_KMS\n"); 
#endif 

}  /*  end  dapreqsto   KMS  */ 

list   dapreqs() 


{ 


/*  This  routine  actually  prints  the  query  list  to  the  screen  */ 


struct    dap  req   info    *sub  req   ptr;  /*  ptr  to  a  subrequest         */ 
struct    temp_str_info  *req_ptr;        /*  ptr  to  a  line  of  a  query  */ 
int  i;  /*  the  number  of  the  query    */ 

int        first   line;  /*  boolean  flag  */ 

FILE      *qry   fid;  /*  file  id  for  query  print  file  */ 


#ifdef  EnExFlag 

printf  ("Enter  list   dapreqs\n"); 
#endif 

i=  1; 

qry_fid  =  fopen(QRYFName,  "w"); 

curr   req   ptr->ri   dap   req  =  first   req   ptr->ri   dap   req; 

/*  loop  and  print  the  queries  until  there  are  no  more  */ 
while  (curr_req_ptr->ri_dap_req  !=  NULL) 

{ 
firstjine  =  TRUE; 
fprintf  (qry_fid,"\n"); 
sub_req_ptr  =  curr_req_ptr->ri_dap_req; 

/*  loop  and  print  the  subqueries  until  there  are  no  more  */ 
while  (sub_req   ptr  !=  NULL) 

{ 
req_ptr  =  sub_req_ptr->dri  in  req; 
while  {reqptr  !=  NULL) 

{ 
if  (firstjine  ==  TRUE) 

{ 
/*  first  line  of  a  query  so  print  the  number  of  it  first  */ 
fprintf  (qry_fid,  "\t%d\t  %s\n",  i,  req_ptr->tsi_str); 
firstjine  =  FALSE; 
}  /*  end  if  */ 
else 

fprintf  (qry_fid,  "\t\t  %s\n",  req_ptr->tsi_str); 
req_ptr  =  req  ptr->tsi  next; 
}  /*  end  while  */ 

subreq  ptr  =  sub  req   ptr->dri  sub  req; 
}  /*  end  while  */ 
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curr_req_ptr->ri_dap_req  =  curr_req_ptr->ri_dap  req->dri   next   req; 

}  /•  end  while  */ 

fclose(  qry_fid  );  /*  close  the  query  file  */ 

moredapreqs(  QRYFN'ame  );  /*  print  out  the  queries  */ 

#ifdef  EnExFlag 

printf  ("Exit  list_dapreqs\n"); 
#endif 

}  /*  end  list_dapreqs  */ 

finddapreq(num) 

int  num:  /*  specified  query  to  be  executed  */ 

{ 

int  i:  /*  counter  * 

/*  This  function  walks  down  the  DAPLEX  request  list  to  the  (num)th  */ 
I*  query  and  leaves  the  current  ptr  pointing  to  that  request  */ 

#ifdef  EnExFlag 

printf  ("Enter  find   dapreq^n"); 
^pendif 

/*  set  the  current  ptr  to  the  first  ptr  */ 

currreq  ptr->ri  dapreq  =  first   req  ptr->ri_dap_req; 

for  (i  =  1;  i  <  num;  i-1--!-) 

curr  req  ptr->ri  dap  req  =  curr  req  ptr->ri_dap_req->dri_next_req; 

#ifdef  EnExFlag 

printf  ("Exit  find_dapreq\n"); 
#endif 

}  /*  end  finddapreq  */ 

f  free_requests() 
{" 

struct    dap  req   info    *sub_req_ptr; 

/*  This  function  frees  all  memory  reserved  by  the  transaction  list  * 

iifdef  EnExFlag 

printf  ("Enter  f_free_requests\n"); 
#endif 

/*  set  the  current  ptr  to  the  first  ptr  */ 

curr  req  ptr->ri   dap  req  =  first _req   ptr- >ri_dap_req: 
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while  (curr_req_ptr->ri_dap_req  !=  NULL) 

{ 
while  (currreq   ptr->ri  dap  req->dri_sub_req  !=  NULL) 

{ 

sub  req   ptr  =  curr  req   ptr->ri   dap  req->dri_sub  req; 

curr_req_ptr->ri_dap  req->dri_sub_req  =  sub_req_ptr->dri_sub_req; 

free  (sub  req_ptr); 
}  /*  end  while"*/ 

curr  req   ptr->ri   dap  req  =  curr  req  ptr->ri  dap_req->dri   next   req; 
free  (first_req_ptr->ri_dap_req); 

first_req_ptr->ri_dap  req  =  curr  req_ptr->ri_dap_req; 
}  /*  end  while  */  ~ 

#ifdef  EnExFlag 

printf  ("Exit  f_free_requests\n"); 
#endif 

}  /*  end  f  free  requests  */ 

static  moredapreqs(fname) 
char    *fname; 

{ 
int     c. counter; 
char   ch[3]; 
int     i,j; 
int     no  lines; 
FILE   *fid; 


fid  =  fopen(fname,"r"); 

no_lines  =  21; 

c  =  fgetc(fid); 
while(c  !=  EOF) 

{ 
counter  =  0; 
while  ((counter  <=  no  lines)  &&:  (c  !=  EOF)) 

{ 
printf("%c",c); 

if(c=='\n') 
+  -(-counter; 
c  =  fgetc(fid); 
} 

if  (counter  >=  no_lines) 

{ 
printf("\n[7;7m--  more  --[0;0m"); 
for(i  =  0;  (  (i  <=  2)  &&  ((ch[i)  =  getchar())!  =  '\n')  );  i++) 
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if((i==l)&&(ch[0]=='q')) 

return; 
else  if  (i  ==  1) 

{ 
ch[l]  =  '\0'; 
no_lines  =  strtonum(ch)  -  1; 

} 
else 

if  (i==2) 

{ 
ch[2j  =  '\0'; 

no_lines  =  str_to_num(ch)  -  1; 

} 
else 
nolines  =  21; 

printf("\nM); 
}  /*  end  if  */ 
}  /*  end  while  eof  */ 

fclose(  fid  ); 
}  /*  end  more  *, 

3.     FILE  :  newuser.c 

/*  This  proc  allocates  and  initializes  a  node  and  structure  of  the  user  list  */ 


#include  <stdio.h> 
#include  "licommdata.def" 
^include  "struct. def1' 
#include  "flags.def* 
^include  "dap.ext" 

struct  userinfo  *new_dap_user() 

{ 
struct  userinfo      *new_user_alloc(),  /*  ptr  to  new  allocated  user  struct  */ 

*user  ptr,  /*  ptr  to  user  struct  */ 

*new   user  ptr;        /*  ptr  to  new  allocated  user  struct  */ 

struct  dap  info        *dap   info  ptr;        /*  temp  ptr  to  dap  info  struct         */ 

struct  curr  db  info  *curr  db  infoptr;  /*  temp  ptr  to  currdbinfo  struct 

struct  file  info      *file  info  ptr;      /*  temp  ptr  to  fileinfo  struct        */ 

struct  tran  info      *tran   infoptr;      /*  temp  ptr  to  traninfo  struct        */ 

struct  kc   ent   info    *kc   ptr;  /*  temp  ptr  to  kc   dap   info  struct     */ 

struct  kfs  ent   info  *kfs  ptr;  /*  temp  ptr  to  kfs  dap   info  struct    */ 


char    *var_str_alloc(); 

#ifdef  EnExFlag 

printf  ("Enter  new_dap_user\n"); 
#endif 
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/*  allocate  a  new  user  structure  */ 

new    user  ptr  =  new   user   alloc(); 

/*  set  user  ptr  to  the  head  of  the  user  list  */ 

user  ptr  =  userdapheadptr; 

if  (user_ptr  ==  NULL) 

{ 
/*  user  list  is  empty  */ 

user  dap   headptr  =  new_user_ptr; 

user  ptr  =  new   user   ptr; 

} 
else 

{ 
/*  walk  down  user  list  to  the  end  and  append  new  user  structure  */ 

while  (user   ptr->ui  nextuser  !=  NULL) 

user   ptr  =  user  ptr->ui_next_user; 

user  ptr->ui   nextuser  —  newuserptr; 

user   ptr  =  newuserptr; 

} 

/*  initialize  complete  new  user  structure  */ 

get    new   user  (user  ptr->ui_uid); 

dap   info   ptr  =  &(user_ptr->ui_li_type.li_dap); 

dap   info   ptr->dap_operation  =  0; 

dap   info_ptr->dap_answer  =  0: 

dap   info   ptr->dap   error  =  NOErr; 

dap   info  ptr->dpi   ddl   files  =  NULL; 

dap   info  ptr->dap   buffcount  =  0; 

curr  db  info   ptr  =  &(dap   info   ptr->dpi_curr_db); 

strcpy  (curr  db  info  ptr->cdi  dbname,  DUMMYDBname); 

curr  db  info   ptr->cdi   db.dn   fun  =  NULL; 

curr_db_info_ptr->cdi_attr.an_nattr_ptr  =  NULL;  /*  ?????  */ 

file   info  ptr  =  &(dap   info   ptr->dpi_file); 

strcpy  (file   info  ptr->fi   fname,  DUMMYFname); 

file_info_ptr->fi~fid  =  NULL; 

tran   info   ptr  =  &(dap   info  ptr->dpi   dmltran); 

dap   info   ptr->dpi   kms  data.kinkms  =  NULL; 

kfs   ptr  —  &(dap   info   ptr->dpi_kfs_data.kfsi_ent); 

/*  kri  response  is  now  allocated  here  rather  than  in  procedure        */ 

/*  dap  chk   responses  left  in  kc.c  */ 

kfs   ptr->khi  response  =  var  str   alloc(1024); 

kfs   ptr->khi  currpos  =  0; 

kfs   ptr->khi_res_len  =  0; 

kc   ptr  =  &(dap  info  ptr->dpi_kc_data.kci_e_kc); 

kc   ptr->temp  =  0; 


#ifdef  EnExFlag 

printf  ("Exit  new _dap_user\n"); 
#endif 
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return  (new_user_ptr); 
}  /*  end  new   dap  user  */ 

4.     FILE  :  readrtnes.c 

^include  <stdio.h> 
^include  <ctype.h> 
^include  "flags. def 
^include  "licommdata.def" 
^include  "struct. def 
^include  <strings.h> 
^include  "dap.ext" 
^include  "lil.ext" 

fread   transact  ion   file() 

{ 

int     openflag;    /*  boolean  flag  */ 
int     i;       /*  counter         */ 

/*  This  routine  opens  a  DAPLEX  dbd,  request  file  and  reads  the  */ 
/*  dbds/ requests  into  the  request  list.  */ 

#ifdef  EnExFlag 

printf  ("Enter  f  read   transaction   file\n"); 
#endif 

openflag  —  FALSE; 

printf  ("[7;7m\n  What  is  the  name  of  the  DBD/REQUEST  file  — >[0;0m  "); 

/*  open  the  file  */ 

while  (open   flag  ==  FALSE) 

{ 

readstr  (stdin,  dap  info_ptr->dpi   file.fi_fname); 

printf  ("\n\n"); 

if  ((dap_info_ptr->dpi_file.fi_fid  = 

fopen  (dap  info  ptr->dpi   file.fi  fname,  "r"))  =  =  NULL) 

{ 
printf  ("\nUnable  to  open  file  %s\n",dap_info_ptr->dpi_file.fi_fname); 

ring_the_bell(); 

printf  ("Please  reenter  valid  filename\n"); 
printf  ("I7;7m"); 

printf  ("\nWhat  is  the  name  of  the  DBD/REQUEST  file  — >[0;0m  "); 
}  /*  end  if  V 
else 

openflag  =  TRUE; 

}  /*  end  while  */ 

/*  now  read  in  the  transactions  */ 
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f_read_file(); 

#ifdef  EnExFlag 

printf  ("Exit  f_read_transaction_file\n"); 
#endif 

}  /*  end  f  read   transaction   file  */ 

f_read_file() 

{ 

struct  temp  str  info  *new   t   ptr,    /*  ptrs  to  linked  list  of  80  col  input  */ 
*curr_t_ptr, 
*head_t   ptr, 

*f  rd   temp  str   info(): 
struct  dap  req   info    *  new   req   ptr,     /*  ptrs  to  request  list  */ 
*curr  req   ptr, 
*sub   req   ptr. 
*dap  req   info   alloc(); 
int      i, 

first   subreq,    /*  boolean  flag  *  ' 
first   req.        /*  boolean  flag  */ 
firstline.       /*  boolean  flag  */ 
length   so  far,  /*  length  of  a  single  transaction  */ 
EOF_flag7        /*  boolean  flag  */ 
EORflag,         /*  boolean  flag  */ 
EOSflag;         /*  boolean  flag  */ 
char     *var  str_alloc(); 

/*  This  routine  reads  a  file  of  transactions  into  */ 
/*  the  user's  request  list  structure.  */ 

#ifdef  EnExFlag 

printf  ("Enter  f_read_file\n"); 
#endif 

first   req  =  TRUE; 
EOFflag  =  FALSE; 

/*  create  the  request  list  from  the  inner  loop's  line  list  */ 
while  (EOFflag  ==  FALSE) 

{ 
EOSflag  =  FALSE; 
EORflag  -  FALSE; 
length_so_far  =  0; 
firstline  =  TRUE; 
first  subreq  =  TRUE; 

/*  create  a  line  list  for  each  request  read.    */ 
/*  each  node  represents  a  line  of  the  request  */ 
while  (EORflag  ==  FALSE) 
{ 
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/*  allocate  a  line  */ 

newtptr  =  frdjempstrinfo  (&EOS_flag,  &EOR_flag,  &EOF_flag); 

if  (newtptr  !=  NULL) 

{ 
lengthsofar  =  lengthsofar  +  strlen  (new_t_ptr->tsi  str); 
if  (first _line  ==  TRUE) 

{ 
/*  line  is  the  first  on  the  list  so  set  appropriate  ptrs  */ 
head _t   ptr  =  new   t   ptr; 
curr_t_ptr  =  new   t   ptr; 
firstline  =  FALSE;" 
}  /*  end  if  */ 
else 

{ 

/*  link  line  to  the  rest  of  the  line  list  */ 

curr   t   ptr->tsi   next  =  new   t   ptr; 

curr  t   ptr  =  new   t   ptr; 
}  /*  end  else  */ 

}  /*endif*/ 

else 

/*  check  for  no  input  situation  */ 

if  (EOS   flag  ==  FALSE  &&  first  _line  ==  TRUE  &&  EOFflag  ==  TRUE) 

{ 
dap   info   ptr->dap  error  =  ErrReadFile; 
printf  ("WARNING  -  number  of  requests  read  =  0!\n\n"); 

} 
else 

{ 
/*  allocate  a  request  structure  */ 
new   req   ptr  =  dapreq  infoallocQ; 
/*  store  head   t   ptr  as  the  input  request  */ 
new  req  ptr->dri   inreq  =  headtptr; 
new  req  ptr->dri  req  =  var  str  alloc(length   so  far  +  1); 
new  req_ptr->dri_req!0]  =  '\0'; 
curr_t_ptr  =  head _t   ptr; 

/*  concatenate  line  list  to  form  a  request  node  */ 
while  (currtptr  !=  NULL) 

{ 
strcat  (new  req   ptr->dri_req,  curr_t_ptr->tsi_str); 

curr   t   ptr  =  curr   t   ptr->tsi_next; 

}  /*  encfwhile  */ 

/*  capitalize  the  request  */ 
to  caps  (new  req_ptr->dri_req); 
new  req  ptr->dri  req   len  —  length   so  far; 

new   req  ptr->dri   subreq  =  NULL; 
new   req  ptr->dri  next   req  —  NULL; 
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if  (EOSflag  ==  TRUE) 

{ 
if  ( first  subreq  ==  TRUE) 

{ 

sub  req  ptr  =  new   req   ptr; 

curr  req   ptr  =  new  req  ptr; 

firstsubreq  =  FALSE; 
}  /*  end  if  */ 
else 

{ 

curr  req   ptr->dri   sub  req  =  new   req   ptr: 

curr  reqptr  =  newreqptr; 
}  /*  end  else  */ 

length   so  far  =  0; 
first   line  =  TRUE; 
}  /*  end  if  */ 
}  /*  end  else*/ 


}  /*  end  while  EORflag  =  FALSE  */ 


if  (firstreq  ==  TRUE) 

{ 

if  (EOSflag  ==  TRUE) 

{ 
/*  request  is  the  first  on  the  sublist  so  set  appropriate  ptrs  */ 

tran_info_ptr->ti_first_req.ri_dap_req  =  sub_req_ptr; 

tran_info_ptr->ti   currreq.ridapreq    =  subreqptr; 

}  /*  end  if  7 
else 

{ 
/*  request  is  the  first  on  the  list  so  set  appropriate  ptrs  */ 

tran   info   ptr->ti   first   req.ri   dap  req  =  new   reqptr; 
tran   info   ptr->ti  curr  req.ri  dap  req    =  new   req  ptr; 
}  /*  end  else  */ 
-f -I- tran   info  ptr->ti_no  req; 
firstreq  =~FALSE7 
}  /*  end  if  first  req  =  TRUE  */ 
else 

{ 
if  (EOSflag  ==  TRUE) 

{ 
tran _info_ptr->ti_curr  req. ri_dap_req->dri_next  req  =  sub_req_ptr; 
tran   info   ptr->ti  curr  req.ridap  req  =  subreqptr; 

}  /*  end  if  7 
else 

{ 
tran   info   ptr->ti  curr  req.ri  dap  req->dri  next   req  =  new   reqptr; 
tran   info   ptr->ti  curr  req.ri  dap  req  =  new  req   ptr; 
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}  /*  end  else  * 
-f-^tran_info_ptr->ti  no  req; 
}  /*  end  else~first_req  =~FALSE  */ 

}  /*  end  while  EOFflag  =  FALSE  */ 

#ifdef  EnExFlag 
printf  ("Exit  f_read_file\n"): 

#endif 

}  /*  end  f_read_file  */ 

f  read_terminal() 
{ 

/*  This  function  prompts  the  user  to  input  DAPLEX   requests  */ 
/*  from  their  terminal  */ 

#  ifdef  EnExFlag 

printf  ("Enter  f  read    terminahn"); 
#endif 

/*  set  input  device  to  be  the  terminal  */ 
dap  info   ptr->dpi   file.fi   fid  =  stdin: 


printf 
printf 
printf 
printf 
printf 
printf 
printf 
printf 
printf 


"nPlease  enter  your  transactions  one  at  a  timeAn"); 

"You  may  have  multiple  lines  per  transaction. \n"); 

"Each  transaction  must  be  separated  by  a  line  that\n"); 

"\tonly  contains  the  character  '@'.\n"); 

"If  you  have  multiple  requests  per  transactions,  seperate\n"); 

"\tthem  by  the  character  '!'.\n"); 

"After  the  last  transaction,  the  last  line  must  consist  only\n"); 

"\tof  the  '$'  character  to  signal  end-of-file.\n\n\n"); 

"[7;7m  Input  the  transactions  on  the  following  lines  :[0;0m\n\n"); 


/*  now  read  in  the  transactions  */ 
f_read_file(); 

#ifdef  EnExFlag 

printf  ("Exit  f_read_terminal\n"); 
fendif 

}  /*  end  f_read_terminal  */ 

static    struct  tempstrinfo  *f_rd_temp_str_info(EOS_flag,  EORflag,  EOFflag) 
int      *EOS_flag,        /*  boolean  flags  */ 
*EOR_flag, 
*EOF_flag; 

{ 

struct  temp  str  info  *temp_str_info_alloc(), 

*temp  ptr;    /*  ptrs  to  new  temp  str  info  structs  */ 
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int  i;  /*  counter  */ 

/*  This  routine  fills  an  allocated  line  list  node  */ 
/*  and  sends  back  a  pointer  to  the  node.  */ 

#ifdef  EnExFlag 

printf  ("Enter  f  rd   temp  str  info\n"); 
#endif 

/*  set  a  ptr  to  the  allocated  line  */ 
temp_ptr  =  temp  str  info   alloc(); 

/*  now  read  in  a  line  of  input  *  / 

readstr  (dap_info_ptr->dpi_file.fi_fid,  temp_ptr->tsi_str); 

for  (i  =  0;  temp_ptr->tsi_striij  !=  '\0';  i+  +  ) 

temp   ptr->tsi  strj i-t — h ]  =  '  '; 
temp_ptr->tsi_strii    =  '\0': 
temp   ptr->tsi   next  =  NULL: 

/*  check  for  end-of-subrequest  ('!')  *  ' 

if  (temp_ptr->tsi_str[0    ==  EOSubrequest) 

{ 
*EOS_flag  =  TRUE: 

#ifdef  EnExFlag 

printf  ("Exitl  frdtemp   str  info\n"); 
#endif 

return  (NULL); 
}  /*  end  if  */ 

else 
/*  check  for  end-of-request  f@')  */ 
if  (temp_ptr->tsi_str[0]  ==  EORequest) 

{ 
*EOR_flag  =  TRUE; 

#ifdef  EnExFlag 

printf  ("Exit2  f_rd_temp_str_info\n"); 
#endif 

return  (NULL); 
}  /*  end  if  */ 
else 
/*  check  for  end-of-file  ('$')  */ 
if  (temp_ptr->tsi_str|Oj  ==  EOFile) 

{ 

*EOR_flag  =  TRUE; 
*EOF  flag  =  TRUE; 
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£ifdef  EnExFlag 

printf  ("Exit3  f_rd_temp_str  info\n"); 
£endif 

return  (NULL); 
}  /*  end  else  if*/ 
else 

#ifdef  EnExFlag 

printf  ("Exit4  frdtempstr  info\n"); 
#endif 

return  (temp   ptr); 

}  /*  end  f_rd   temp  str  info  */ 

5.     FILE  :  buildddl.c 


^include  <stdio.h> 
#include  "licommdata.def" 
#include  "struct. def" 
finclude  "flags. def 
^include  "lil.ext" 


f_build_ddl_files() 
/*  This  routine  is  used  to  create  the  MBDS  template  and  descriptor  files  */ 

{ 
struct     ddl_info     *ddl  info_alloc(); 

#ifdef  EnExFlag 

printf(»Enterf_build_ddl_file\n"); 

#endif 

if  (dap_info_ptr  ->  dpi_ddl_files  ==  NULL) 

dap   info   ptr  ->  dpi_ddl_files  =  ddl_info_alloc(); 

f  build   template_file(); 
f_build_desc_file(); 

#ifdef  EnExFlag 

printf("Exit  f_build_ddl_file\n"); 
#endif 

I*    f_build_desc_file();*/ 
} 
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f  buildtemplatefileQ 

f 

/*  This  routine  builds  the  MBDS  template  file  for  a  new  daplex    */ 

/*  database  that  was  just  created.    */ 

struct  fun   dbidnode      *db_ptr; 

struct  ent   node  *ent_ptr; 

struct  gen_sub_node       *gen_ptr; 

struct  function_node      *funct_ptr; 

struct  fileinfo  *f_ptr; 

char  temistrlNUMDIGIT  +  l]; 

char  get_fun_type(); 

#ifdef  EnExFlag 

printf( "Enter  f_build_template_file\n"); 
#endif 


/*  Begin  by  setting  the  pointers  to  the  dapinfo  data  structure  */ 
/*  that  is  maintained  for  each  user  of  the  system.  */ 

db   ptr  =  dap   info   ptr->dpi_curr_db.cdi_db.dn_fun; 
f  ptr    =  &(dap   info   ptr->dpi  ddl   files->ddli   temp); 


/*  Next,  copy  the  filename  where  the  MBDS  template  information  will  */ 
/*  be  stored.    This  filename  is  constant  and  was  obtained  from         */ 
/*  licommdata.def.    */ 
strcpy(f  ptr->fi  fname,  FTEMPFname); 

/*    Next,  open  the  template  File  to  be  created:  */ 

if  ((f_ptr->fi  fid  =  fopen(f_ptr->fi_fname,"w"))  ==  NULL) 

{ 

printf("Unable  to  open  %s\n",  FTEMPFname); 

ring_the_bell(); 

#ifdef  EnExFlag 

printf("Exitl  f_build_template_file\n"); 
#endif 

return; 

}; 

/*    Next,  write  out  the  database  name  &  number  of  files  :  */ 

fprintf(f_ptr->fi_fid,  "%s\n",  db_ptr->fdn_name); 

num_to_str(db_ptr->fdn_num_ent  +  db_ptr->fdn   num    gen,  temp  str); 
fprintf(rptr->fT_fid,  "%s\n",  tempstr); 

/*    Next,  set  the  pointer  to  the  first  entity:  */ 

entptr  =  db_ptr->fdn_entptr; 

/*    While  there  are  more  entities  to  process,  write  out  the  number  */ 

/*    of  functions  (  +  2  for  the  attribute  "FILE"  and  the  key  value  attribute)  */ 
/*    and  the  entity  name:  */ 

while  (ent   ptr  !=  NULL) 
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{ 

num_to_str((ent_ptr->en_num_funct  +  2).  temp  str); 
fprintf(f_ptr->fi_fid.  "%s\n".  tempstr); 
fprintf(f_ptr->fi_fid.  "%syn",  ent_ptr->en_name); 

/*    Print  out  the    onstant  attribute  "FILE  s"  and  key  value  attribute     */ 

fprintf(f_ptr->fi _hd.  "FILE  s\n"); 

fprintf(f_ptr->fi_fid,  "%s  i\n",  to_caps(ent_ptr->en_name)); 

'*    Now.  set  the  pointer  to  the  first  function:  */ 

funct   ptr  =  ent    ptr- >  en   ftnptr: 
wr_all_funct    attr(f  ptr->fi   fid.  funct   ptr); 

*    set  the  pointer  to  the  next  entity:  */ 

ent    ptr  =  ent   ptr->en   next  ent; 


}      /*  end  while  entptr  */ 

/*    Next,  set  the  pointer  to  the  first  gen  sub  node  : 
gen   ptr  =  db   ptr->fdn   subptr: 

*    While  there  are  more  sub  nodes  to  process,  write  out  the  number 
/*    of  functions  (  —  2  for  the  attribute  "FILE"  and  the  key  value  attribute)  * 
/*    and  the  entity  name:  */ 

while  (genptr  !=  NULL) 

{ 

num_to_str((gen   ptr->gsn   num  funct  ■+-  2),  tempstr); 
fprintf(f_ptr->fi_fid.  "%s\n",  tempstr); 
fprintf(f_ptr->fi_fid.  "%s\n",  gen_ptr->gsn_name); 

/*    Print  out  the  constant  attribute  "FILE  s"  and  key  value  attribute     */ 

fprintf(f_ptr->fi_fid.  "FILE  s\n"); 

fprintf(f  ptr->fi_fid,  "%s  i\n",  to_caps(gen_ptr->gsn_name)); 

/*    Now,  set  the  pointer  to  the  first  function:  */ 

funct   ptr  —  gen   ptr- >gsn   ftnptr; 

wr  all  funct   attr(f  ptr->fi_fid,  functptr); 

/*    set  the  pointer  to  the  next  gen  sub  node:  */ 

gen   ptr  =  gen_ptr->gsn_next_genptr; 

}     /*  end  while  gen   ptr  */ 

/*    Finally,  close  out  the  file  and  exit  this  routine:  */ 

fclose(f_ptr->fi_fid); 

#ifdef  EnExFlag 

printf("Exit2  f_build_template_file\n"); 
#endif 
} 


117 


wr  all  funct   attr(fid,  functptr) 
FILE      *fid; 
struct    functionnode      *funct_ptr; 

{ 

#ifdef  EnExFlag 

printf( "Enter  wr_all_funct_attr\n"); 
#endif 

/*    While  there  are  more  attributes  to  process, 
/*    print  out  attr.  name  &  type:  */ 

while  (functptr  !=  NULL) 

{ 

fprintf(fid,  "%s  %c\n",  funct_ptr->fn_name,  get_fun_type(funct_ptr)); 

/*    Set  the  pointer  to  the  next  function:  */ 

funct   ptr  =  funct_ptr->next; 

}     /*  end  while  funct   ptr  */ 

fifdef  EnExFlag 

printf("Exit  wr_all_funct_attr\n"); 
#endif 
} 

char  getfuntype(fptr) 

struct     function   node     *fptr; 
{  /*  begin  get_fun_type  */ 
char      fun_type; 

#ifdef  EnExFlag 

printf( "Enter  get_fun_type\n"); 
#endif 

switch  (fptr->fn_type) 

{ 

case  'i'  :  ; 
case  T  :  ; 
case  V  :  fun_type  =  fptr->fn_type; 

break; 
case  'b'  :  funtype  =  'i'; 

break; 
case  V  :  if  (fptr  ->  fnentptr  !=  NULL  || 
fptr  ->  fnsubptr  !=  NULL) 
fun_type  —  'i'; 
else  if  (fptr  ->  fn   nonentptr  !=  NULL) 

fun  type  =  fptr  ->  fn   nonentptr  ->  enn   type; 
else  if  (fptr  ->  fnnonsubptr  !=  NULL) 

fun   type  =  fptr  ->  fnnonsubptr  ->  snntype; 
else  if  (fptr  ->  fnnonderptr  !=  NULL) 

fun   type  =  fptr  ->  fn   nonderptr  ->  dnn   type; 
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if  (fun   type  =  =  'e')       /*  still  not  i  or  f  type  */ 

fun   type  =  V; 
break; 
}     /*  end  switch  */ 

#ifdef  EnExFlag 

printf("Exit  get_fun_type\n"); 
#endif 

return(fun_type); 

}  /*  end  get_fun   type  */ 
6.     FILE  :  builddesc.c 


^include  <stdio.h> 
#include  "licommdata.der' 
^include  "struct. def" 
#include  "flags. def 
^include  "lil.ext" 
#include  "dap.ext" 
#include  <strings.h> 
#include  <ctype.h> 

f_build_desc_file() 

{ 

/*  This  routine  builds  the  Descriptor  File  to  be  used  by  the  MBDS  in  the     */ 

/*  creation  of  indexing  clusters:  */ 

struct      fun_dbid_node        *db   ptr;  /*    database  pointer  */ 

struct      ent_node  *ent   ptr;  /*    entity  node  ptr  */ 

struct      gen   sub   node         *gen   ptr;  /*    gen  sub  node  ptr  */ 

struct      descriptor  node     *desc   head  ptr,        /*    pointers  to  Desc   node..*/ 

*ask_all_fun_nodes(); 

struct      file   info  *f_ptr;  /*    File  pointer  */ 

int  index, 

str  len; 


#ifdef  EnExFlag 

printf( "Enter  f_build_desc_file\n"); 

#endif 

/*    Begin  by  setting  the  pointers  to  the  dap   info  data  structure  that  is     */ 
/*    maintained  for  each  user  of  the  system:  */ 

dbptr  =  dap_info_ptr->dpi_curr_db.cdi_db.dn   fun; 
fptr  =  &(dap_info_ptr->dpi_ddl_files->ddli_desc); 

/*    Next,  copy  the  filename  where  the  MBDS  Descriptor  File  information        */ 
/*    will  be  stored.    This  filename  is  Constant,  and  was  obtained  from         */ 
/*    licommdata.def:  */ 
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strcpy(f_ptr->fi_fname,  FDESCFname); 

/*    Now,  open  the  Descriptor  File  to  be  created:  */ 

f  ptr->fi   6d  =  fopen(f  ptr->fi   fname,  "w"); 

/*  The  next  step  is  to  traverse  the  Linked  List  of  entities  in  the  data-    */ 

/*  base.    There  are  two  reasons  for  doing  so:    First,  to  write  the  */ 

/*  entity  Names  to  the  Descriptor  File  as  EQUALITY  Descriptors;  this  is     */ 

/*  done  automatically  with  any  Daplex  Database,  is  a  necessary  element      */ 

/*  of  any  Descriptor  File  created  from  such  a  Database,  and  requires         */ 

/*  no  user  involvement.    Second,  it  allows  us  to  present  the  Entity  */ 

/*  Names  (without  their  respective  Attributes)  to  the  User,  as  a  memory     */ 

/*  jog:  */ 

system("clear"); 

fprintf(f_ptr->fi_fid,  "%s\n",  db_ptr->fdn_name); 
fprintf(f_ptr->fi_fid.  "template  C  s\n"); 
printf("\nThe  following  are  the  Entities  in  the  "); 
printf("%s  Database:\n\n",  db   ptr->fdn   name); 

ent_ptr  =  db_ptr->fdn_entptr; 

/*    Traverse  all  entity  nodes  */ 

while  (ent_ptr  !=  NULL) 

{ 

fprintf(f_ptr->fi   fid.  "!  %c",  ent_ptr->en_name[Oi  ); 

strlen  =  strlen(  ent_ptr->en_name  ); 

for(index  =  1;  index  <  str  len:  index-H  +  ) 

if  ( isupperf ent   ptr- > en   name) index])) 

fprintf(f  ptr->fi   fid,  "%c",  tolower(  ent   ptr->en   name[index]  )); 

else 

fprintf(f  ptr->fi   fid,  "%c",  ent   ptr->en   namejindex]); 
fprintf(f_ptr->fi_fid,  ,r\n"): 
printf("\n\t%s",  ent   ptr->en_name); 
entptr  =  ent   ptr->en   next   ent; 
}     7*    End  "while  (ent'ptr  !=  NULL)"    */ 

gen   ptr  =  db  ptr->fdn   subptr; 

/*    Traverse  all  gen  sub  nodes  */ 

while  (gen_ptr  !=  NULL) 

{ 

fprintf(f_ptr->fi_fid,  "!  %c",  gen_ptr->gsn_name(0]  ); 

strlen  =  strlen  (  gen   ptr->gsn   name  ): 

for(index  =  1;  index  <  str  len;  index+-f ) 

if  (isupper( gen   ptr- >gsn   namejindex])) 

fprintf(f_ptr->fi   fid,  "%c",  tolower(  gen_ptr->gsn   namejindex]  )); 

else 

fprintf(f_ptr->fi_fid,  "%c",  gen_ptr->gsn_name[index]); 
fprintf(f_ptr->fi_fid,  ""\n"); 
printf("\n\t%s",  gen   ptr- >gsn   name); 
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gen_ptr  =  gen_ptr->gsn_next    genptr: 
}      t*    End  "while  (genptr  !=~NULL)"    x 

Each  Descriptor  Block  must  be  followed  by  the  "@"  sign: 
fpnntf(f_ptr->fi_fid.  "@\n"); 

I*    Now.  inform  the  user  of  the  procedure  that  must  be  followed  to  create    * 
/X    the  Descriptor  File:  */ 

printf("   n  nBeginning  with  the  first  Entity,  we  will  present  each"); 
printf("   nfunction  of  the  entity.    You  will  be  prompted  as  to  whether"): 
printf("   nyou  wish  to  include  that  function  as  an  Indexing  Attribute."): 
printf("   nand.  if  so.  whether  it  is  to  be  indexed  based  on  strict"); 
printfj"   nEQUALITY.  or  based  on  a  RANGE  OF  VALUES."): 
printf("  n  nStrike  RETURN  when  ready  to  continue."): 
dap   info_ptr->dap   answer  =  get    ans(tindex): 

1    Initialize  the  pointer  to  a  Linked  List  that  will  hold  the  results 
f*    of  the  Descriptor  Values,  then  return  to  the  first  entity  of  the 

x    database  and  begin  cycling  through  the  individual  attributes: 
desc_head_ptr  =  NULL: 

entptr  =  db  ptr- >fdn   entptr: 
while  (entptr  '.=  NL'LL) 

{ 

desc   head   ptr  = 
ask   all   fun   nodes(desc   head_ptr.  ent_ptr->en_name.  ent_ptr->en_ftnptr): 

ent   ptr  =  ent   ptr->en_next_ent; 
}    J*   End  wh7le  * 

gen   ptr  =  db  ptr->fdn   subptr; 
while  (gen_ptr  !=  NULL) 

{ 

desc   head   ptr  — 

ask    all   fun   nodes(desc    head   ptr.  gen   ptr->gsn_name.  gen_ptr->gsn_ftnptr) 
gen   ptr  =  gen   ptr->gsn_next_genptr: 
}    /*    End  while  * 

I*    Now.  we  will  traverse  the  Linked  List  of  Descriptor  Attributes  and 
/*    Values  which  was  created,  writing  them  to  our  Descriptor  File: 

wr   all   desc  values (f_ptr->fi_fid.  desc_head_ptr); 
fclose(fj3tr->fi_fid); 

#ifdef  EnExFlag 

printf("Exit  f_build_desc_file\n"); 
^endif 
} 


struct  descriptor  node  *ask   all   fun   nodes(desc   headptr.  en_name.  funct_ptr) 
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struct     descriptor  node      *desc   head   ptr, 
char       en   namelENLength  +  l]; 
struct     function   node         *funct   ptr; 

{ 

struct     descriptor   node      *desc   node   ptr, 

*descriptor_node   alloc();    /*  Allocates  Nodes    */ 

struct      valuenode  *valuenode_ptr;         /*  points  to  Value  Node     */ 

int  num.  /*  */ 

found,  /*    Boolean  flag  */ 

goodanswer;  /*    Boolean  flag  */ 

#ifdef  EnExFlag 

printf("Enter  ask_all   fun    nodes  \n"); 
#endif 

while  (functptr  !=  NULL) 

{ 

if  ( funct   ptr- >fn   entptr  ==  NULL  &&r  funct   ptr->fn  subptr  ==  NULL) 

{ 

system(  "clear"); 

printf( "Entity  name:    %s  n".  en   name): 

printf( "Function  Name:  %s\n\n",  funct   ptr->fn    name); 

/*    Now.  traverse  the  Attribute  linked  list  that  is  being  created,     */ 

/*    to  see  if  the  current  Attribute  has  already  been  established  as    */ 

/*    a  Descriptor  Attribute.    If  so.  offer  the  user  the  opportunity     */ 

/*    to  add  additional  EQUALITY  or  RANGE  OF  VALUE  values;  otherwise,    */ 

/*    offer  the  user  the  opportunity  to  establish  this  as  a  Descriptor  */ 

/*    Attribute:  */ 

desc_node_ptr  =  desc   head   ptr; 

found  =  FALSE; 

while  ((desc_node_ptr  !=  NULL)  &&  (found  ==  FALSE)) 

{ 

if  (strcmp(funct_ptr->fn_name,  desc   node  ptr->attr  name)  ==  0) 

{ 

/*    The  Attribute  HAS  already  been  chosen  as  a  Descriptor.        */ 
/*    Allow  the  user  the  option  of  adding  additional  Descriptor    */ 
/*    values,  after  listing  those  already  entered:  */ 

printf("\nThis  Attribute  has  been  chosen  as  an  Indexing  Attribute. \n"); 

printf("The  following  are  the  values  that  have  been  specified:\n\n"); 

found  =  TRUE; 

valuenodeptr  =  desc   node  ptr->first   value   node; 

while  (valuenode   ptr  !=  NULL) 

{ 

if  (desc_node_ptr->descriptor  type  ==  'A') 
printf("\t%s  %s\n",  valuenode_ptr->valuel. 
valuenode   ptr->value2); 
else 
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printf("\t%s\n",  valuenode_ptr->value2); 

valuenodeptr  =  valuenode  ptr->next  value  node; 

}     /*    End  "while  (valuenode  ptr  !=  NULL)"    */ 
printf("\nDo  you  wish  to  add  more  "); 
if  (desc_node_ptr->descriptor  type  ==  'A') 

printf("RANGE"): 
else 

printf("EQUALITY"); 
printf("  values?    (y  or  n)\n"); 
dap_info_ptr->dap_answer  =  get   ans(&num); 
if  ((dapinfo   ptr->dap   answer  ==  'y')  |j 
(dap_info_ptr->dap  answer  ==  'Y')) 

/*    The  user  DOES  wish  to  add  more  descriptors  to  the  */ 

/*    currently  existing  list:  */ 

{ 

if  (desc_node_ptr->descriptor  type  ==  'A') 

build_RAN_descrip(desc_node_ptr.  funct   ptr->fn   total   length); 
else 

build_EQ_descrip(desc_node_ptr,  funct   ptr->fn   total   length): 
}      /  *    End  "if  ((dap_info_ptr->dap   answer  ==  'y')  |j 

(dap  info   ptr->dap   answer  ==  'Y'))  */ 

}     /*    End  "if  (strcmp(.7.)  ==  0),r*/ 
desc   node   ptr  =  desc   node  ptr->next  desc   node: 
}     /*   End"  "while  ((disc  nodeptr  !=  NULL)  &&  (found..))"    */ 

if  (found  ==  FALSE) 

/*    The  Attribute  has  NOT  previously  been  chosen  as  a  Descriptor.  */ 
/*    Allow  the  user  the  option  of  making  this  a  Descriptor  Attri-    */ 
/*    bute,  with  appropriate  Descriptor  Values:  */ 

{ 

printf("\nDo  you  wish  to  install  this  function  as  an  "); 

printf ("Indexing  Attribute?\n\n"); 

printf("\t(n)  -  no;  continue  with  next  Attribute/Relation\n"); 

printf("\t(e)  -  yes;  establish  this  as  an  EQUALITY  Attribute\n"); 

printf("\t(r)  -  yes;  establish  this  as  a  RANGE  Attribute\n"); 

goodanswer  =  FALSE; 

while  (goodanswer  ==  FALSE) 

{ 

dap   info  ptr->dap   answer  =  get_ans(&num); 

switch(dap  info  ptr->dap_answer) 

{  r 

case  'n':    /*    User  does  NOT  want  to  use  this  as  an  */ 

/*    Indexing  (Descriptor)  Attribute:  */ 

goodanswer  =  TRUE; 

break; 

case  V:    /*    User  wants  to  use  this  as  an  EQUALITY  */ 

/*    Attribute:  */ 
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goodanswer  =  TRUE; 

desc   node  ptr  =  descriptor  node   alloc(); 

desc   node   ptr- > next   desc   node  =  desc   head    ptr; 

desc   head   ptr  =  desc_node_ptr; 

strcpy(desc   node  ptr->attr  name,  funct_ptr->fn_name) 

desc   node  ptr->descriptor_type  =  'B!; 

desc   node   ptr- > value   type  =  get   fun   type(funct   ptr): 

desc   node  ptr- > first   value   node  =  NULL; 

build   EQ   descrip(desc_node_ptr, 
funct   ptr->fn_total_length); 
break: 

case  V:    /*    User  wants  to  use  this  as  a  RANGE  Attribute:  */ 
goodanswer  =  TRUE; 
desc   node  ptr  —  descriptor_node_alloc(); 
desc   node   ptr->next   desc    node  =  descheadptr; 
desc   head   ptr  =  desc   nodeptr; 

strcpy(desc   node   ptr->attr  name,  funct   ptr- >fn    name) 
desc   node  ptr->descriptor_type  =  'A': 
desc   node   ptr- > value  type  —  get   fun   typeffunct   ptr): 

desc   node   ptr- >  first  _value_node  =  NULL; 
build   RAN   descrip(desc_node_ptr. 

funct   ptr->fn_total_length); 
break: 

default:     /*    User  did  not  select  a  valid  choice:  */ 

printf("\nError  -  Invalid  operation  selected;\n"); 
printf( "Please  pick  again\n"); 
break; 

}     /*    End  Switch    */ 

}     /*    End  "While  (goodanswer  =  FALSE)"    */ 

}    /*    End  "if  (found  ==  FALSE)"    */ 

}     /*  End  "if  (funct_ptr->fn_entptr  ...."  */ 

funct   ptr  —  funct_ptr->next; 
}     /*    End  "while  (lunctptr  !=  NULL)"    */ 

#ifdef  EnExFlag 

printf("Exit  ask_all_fun_nodes\n"); 
#endif 

return  (deschead   ptr); 
} 


124 


7.     FILE  :  buildcomm.c 

^include  <stdio.h> 
^include  "licommdata.def' 
^include  "flags. def" 
^include  <ctype.h> 
^include  <strings.h> 

build_EQ_descrip(desc   node   ptr,  attr  length) 

struct        descriptor  node  *desc   node   ptr: 

int  attr_length: 

{ 

/*    This  routine  builds  the  EQUALITY  Descriptor  list  for  the  current 

/*    Attribute:  * 


int  endroutine:                    *    Boolean  flag     * 

int  index:                           '*    Loop  Index 

int  loop   count:                     *    Loop  Index 

int  val_count:                    /*    Loop  Index 

int  str  len:                      /*    Length  of  input  */ 

char  'temp  value:                   *    Holds  answer     */ 

char  *var  str  alloc();            '*    Allocates  Str.  */ 

struct  value   node            "valuenode   ptr,          f*  Points  to  Value  Node     */ 
*value_node_alloc();  /*  Allocates  Value  Nodes    */ 

#ifdef  EnExFlag 

printf("Enter  build_EQ_descrip\n"); 
#endif 

/*    Repetitively  offer  the  user  the  opportunity  to  create  EQUALITY  de- 
/*    scriptors  for  the  current  Attribute,  halting  when  the  user  enters 
/*    an  empty  carriage  return  ("<CR>").  */ 

temp  value  =  var  str  alloc(attr  length  +  1); 

end   routine  =  FALSE: 

while  (endroutine  ==  FALSE) 

{ 

printf('\nEnter  EQUALITY  match  value,  or  <CR>  to  exit:  "); 

readstr(stdin,  tempvalue); 

str   len  =  strlen(  tempvalue  ): 

for  (index  =  0:  tempvalue  index!  ==  '  r;  index^-i-) 

if  (  str  len  !=  index  ) 

{ 

valuenode  ptr  =  value  node   alloc(attrlength); 

valuenode   ptr->next   value   node  =  desc   node   ptr->first   value   node; 

desc    node   ptr->first   value   node  =  valuenode_ptr: 

strcpy(valuenode_ptr-> value  1,  "!"); 
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/*  Convert  first  character  in  temp  value  to  upper  case  if  nee.    */ 
if  (islower(temp_valueiindex])) 

temp  valueiindex:  =  toupper(  temp_valueiindexj  ); 

/*  Convert  remaining  chars  in  temp  value  to  lower  case  if  nee.  */ 
for(  loop  count  =  index  +  1;  loop  count  <=  str  len;  loop  count++) 
if  (isupper(temp_value[loop_count])) 

temp  valuejloop  count!  —  tolower(  tempvaluelloopcount'  ); 

/*  Store  temp   value  into  value2  from  index  to  end  of  string.  */ 

valcount  =  0; 

for(  loop_count  =  index;  loop_count  <  =  strlen:  loopcount^^) 

valuenode   ptr->value2ival_count-r-f-j  =  temp  valuedoop  count;: 
valuenode_ptr->value2ival_countj  =  '\0'; 

} 
else 

end   routine  —  TRUE: 

_    } 
free(temp_value); 

f^ifdef  EnExFlag 

printf("Exit  build_EQ_descrip\n"): 
#endif 
} 

build   RAN   descrip(desc_node_ptr,  attr  length) 

struct        descriptor_node  *desc_node   ptr; 

int  attr  length; 

{ 

/*    This  routine  builds  the  RANGE  OF  VALUEs  Descriptor  list  for  the 

/*    current  Attribute:  */ 


int  end   routine;  /*    Boolean  flag  */ 

int  good   uppervalue;  /*    Boolean  flag  */ 

int  index;  /*    Loop  Index  */ 

int  loop  count;  /*    Loop  Index        */ 

int  valcount;  /*    Loop  Index        */ 

int  str_len;  /*    Length  of  input      */ 

struct      valuenode  *valuenode   ptr,         /*  Points  to  Value  Node     */ 

*value  node   alloc();  /*  Allocates  Value  Nodes    */ 

char  *temp_value;  /*    Holds  answer     */ 

char  *var_str_alloc();  /*    Allocates  Str.  */ 

#ifdef  EnExFlag 

printf("Enter  build_RAN_descrip\n"); 
#endif 
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/*    Repetitively  offer  the  user  the  opportunity  to  create  RANGE  OF  VALUE     */ 
/*    Descriptors  for  the  current  Attribute,  halting  when  the  user  enters      */ 
/*    an  empty  carriage  return  ("<CR>").  */ 

tempvalue  =  varstr  alloc(attr  length  +  1); 

end   routine  =  FALSE; 

while  (endroutine  ==  FALSE) 

{ 

printf("\nEnter  Lower  Bound,  or  <CR>  to  exit:  "); 

readstr(stdin.  temp  value); 

str  len  =  strlen(  temp  value  ); 

for  (index  =  0;  tempvaluelindex]  ==  '  ';  index+^-) 

if  (  str_len  !=  index  ) 

{ 

valuenode   ptr  =  value  node   alloc(); 

valuenode_ptr->next  value   node  =  desc   node  ptr->first   valuenode; 

desc   node   ptr->first  valuenode  =  valuenode   ptr; 

/*  Convert  first  character  in  temp  value  to  upper  case  if  nee.    */ 
if  (islower(temp  valueiindexj)) 

temp  value! index!  =  toupper(  temp  valuejindex]  ); 

/*  Convert  remaining  chars  in  temp   value  to  lower  case  if  nee.  */ 
for(  loop  count  =  index  —  1;  loop  count  <=  str  len;  loop  count+  +  ) 
if  (isupper(temp  valuefloopcount])) 

temp  valuelloopcount!  =  tolower(  tempvaluejloopcount]  ); 

/*  Store  temp  value  into  valuel  from  index  to  end  of  string.  */ 

val   count  =  0; 

for(  loop  count  =  index;  loop  count  <=  str  len;  loop  count+  +  ) 

valuenode  ptr->valueljval  count++j  =  temp  value[loop  count]; 
valuenode   ptr->valuel[val_countj  =  '\0'; 

good    upper  value  =  FALSE; 

while  (good    upper  value  ==  FALSE) 

{ 

printf("\nEnter  Upper  Bound:"); 

readstr(stdin.  temp  value); 

str   len  =  strlen  (temp  value); 

for  (index  =  0;  temp_value[index]  ==  '  ';  index++) 

i 
if  (strlen  !=  index) 

{ 

/*  Convert  first  character  in  temp   value  to  upper  case  if  nee.  */ 

if  (islower(temp_value[index])) 

temp  value[index]  =  toupper(  tempvaluejindex]  ); 

/*  Convert  remaining  chars  in  temp  value  to  lower  case  if  nee.  */ 
for(  loop  count  =  index  -f  1;  loopcount  <=  strlen;  loop_count+  +  ) 
if  (isupper(temp_value[loop_count])) 
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temp  value!loop_counti  =  tolower(  temp   valuejloop_countj  ): 

/*  Store  temp  value  into  valuel  from  index  to  end  of  string.  */ 

val   count  =  0; 

for(  loop  count  =  index;  loop  count  <=  str  len:  loop  count+- ) 

valuenode_ptr->value2!val_count  +  -;-    =  tempvaluejloopcount]; 
valuenode_ptr->value2jval_count]  =  '\0'; 

good   upper  value  =  TRUE; 

} 
else 

printf("\nYou  must  supply  a  non-blank  Upper  Bound. \n"); 
} 
} 
else 

end    routine  =  TRUE; 

} 
#ifdef  EnExFlag 

printf("Exit  buildRAN   descrip\n"); 
i^endif 
} 


wr   all_desc_values(fid,  desc   head   ptr) 

/*  This  routine  traverse  the  linked  list  of  descriptor  attributes  */ 

/*  and  write  all  descriptor  values  out  to  the  Descriptor  file  */ 

FILE     *fid; 

struct  descriptor  node         *desc   head   ptr; 

{ 

struct  descriptor  node         *desc   node  ptr; 

struct  valuenode  *valuenode   ptr;        /*  points  to  Value  Node     * / 

#ifdef  EnExFlag 

printf("Enter  wr   all   desc   values\n"); 
#endif 

descnodeptr  =  deschead   ptr; 

while  (descnode  ptr  !=  NULL) 

{ 

if  (desc_node_ptr->first_value   node  !=  NULL) 

{ 

fprintf(fid,  "%s  %c  %c\n",  desc_node_ptr->attr_name, 
desc_node_ptr->descriptor  type, 
descnode  ptr->value   type); 

valuenodeptr  =  desc   node  ptr- >  first   value   node; 

while  (valuenode  ptr  !=  NULL) 

{ 

fprintf(fid,"%s  %s\n",  valuenode   ptr->valuel, 
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valuenode   ptr->value2); 
valuenodejptr  =  valuenode   ptr->next_value   node; 
}      *    End  "while  (valuenodlptr  !=  NULL)""  * 

fprintf(fid,"S  n"): 

}      *    End  "if  (desc_node_ptr->first_value_node  !=  NULL)    */ 

desc   node   ptr  =  desc   node   ptr->next   desc   node; 

}      *    End  "while  (descnodeptr  !=  NULL)"    * 

fprmtfffid.  "§n"): 

~ifdef  EnExFlag 

printf("Exit  wr  all   desc   values  \n"); 
=  endif 
} 
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APPENDIX  C 
THE  KMS  MODULE 


1.     FILE  :  d.y 
%{ 

#include  <stdio.h> 
^include  <strings.h> 
#include  "licommdata.def" 
#include  "struct. def1' 
^include  "dap.ext" 
#include  "lil.ext" 
#include  "kms.dcl" 
#include  "flags.deP 


int  serror: 

int  in,  found: 

int  curr_op: 

int  dml  req   len; 

int  enum   length:  /*  length  of  enumeration  string  */ 

int  funct  count=0; 

int    use   prev   name;         /*  boolean  flag  to  indicate  whether  prev   name 

*  / 
/ 


/*  is  used  in  function    type  declaration 


int   rel  operator; 

int    in_op; 

int    literal   type; 

char  temp_str[NUMDIGIT  +  l]; 

char  db(DBNLength  +  lj; 

char  temp  valuelENLength  +  l]; 

char  temp_name_id[ENLength  -+-  l]; 

char  temp[ENLength  +  1]; 

char  base  name[ENLength  +  1]; 

char  *enum  str; 

char  *var_str_alloc(); 

char  *mem   ptr; 

struct  fun_dbid_node       *db_ptr; 

struct  ent_non_node         *ent   nonnode   alloc(), 

*ennptr; 
struct  ent   value  *ent  value   alloc(), 

*entval_ptr, 

*entval_ptr2; 
struct  sub  nonnode        *sub  non   node   alloc  (), 

*snnptr; 
struct  dernon   node         *der  non   node   allocQ, 

*dnnptr; 

ISO 


struct  ent   node 

*ent   node  alloc(), 

*search   entityQ, 

*entptr, 

*last   entptr, 

*new   entptr; 

struct  gen  sub   node 

*new   gen   sub   node(), 

*search   gensubQ, 

*subptr, 

*new   subptr, 

*last  subptr, 

*the   subptr; 

struct  ent   node   list 

*ent   node  list   alloc(), 

*enl  ptr: 

struct  sub  node   list 

*sub   node   list   alloc(), 

*snl  ptr; 

struct  function   node 

*function   node   alloc(), 

*search   funct(), 

*funct   ptr, 

*last   funct   ptr, 

*  first   funct   ptr; 

struct  overlap   node 

*overlap   node   alloc(). 

*ovr   ptr; 

struct  dap   kms   info 

*dap   kms   info   alloc(); 

struct  ident   list  *ident 

list    alloc(). 

*id   ptr, 

*temp   ptr, 

*new   temp   ptr; 

struct  dap  create   list 

*create  list  1 , 

*create   list2, 

*dap  create  list   alloc() 

struct  dap  create  list 

*dcl  ptr; 

struct  dap   av   pair  list 

*av  ptr; 

struct  req  line  list 

*req   ptr; 

struct  dml  statement 
struct  dap  expr  info 

struct  relation   list 

struct  funct    appln 

struct  ent   info 

struct  set   constructor 

struct  set   construct2 

struct  set  constructs 

struct  loop  info  *loop 


*dml  statement   alloc(); 
*dap  expr  info   alloc (), 
*dap_expr_ptr; 
*relation   list    allocQ, 
*rel   list   ptr; 
*funct   appln    alloc(), 
*funct   appln   ptr; 
*ent   info  ptr  alloc(), 
*ent   infoptr; 
*set   constructor_alloc(), 
*set   construct   ptr; 
*set_construct2_alloc(), 
*set  construct2   ptr; 
*set  constructs   alloc(), 
*set  construct3_ptr; 
info   alloc(), 
*loop  info  ptr; 
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struct  domaininfo 
struct  simpleexprl 

struct  simple  expr2 
struct  simple  exprS 
struct  simple_expr4 
struct  dap_range_info 

struct  basic  expr  list 


struct  order  comp  list 
struct  comp   assoc   list 


struct 


struct 


*domain   ptr; 
*simple  exprl    alloc(), 
*simple_expr_ptr: 
*simple_expr2_alloc(); 
*simple_expr3_alloc(); 
*simple  expr4_alloc(); 
*dap  range  info_alloc(). 
*dap_range_ptr; 

*  basic   expr  list  _alloc  ( ) , 

*  new   basic  _expr  ptr, 

*  basic   expr  ptr; 
*order  comp   list   alloc(), 
*order  comp  ptr; 
*comp_assoc_list_alloc(), 
*new   comp   assoc   ptr, 
*comp   assoc   ptr; 

indexed   component  *  indexed   componentallocQ, 

*new   indexed   comp   ptr. 
*indexed   comp   ptr; 

dml  statement2   list  *dml   statement2   list    alloc(), 

*dml   statement2   list    ptr: 


%) 


%union 

{ 
ch 

} 

ar   str[90]; 

%token 

AND 

%token 

ASCENDING 

%token 

AVG 

%token 

BOOLEAN 

%token 

BY 

%token 

CONSTANT 

%token 

COUNT 

%token 

CREATE 

%token 

DATABASE 

%token 

DELTA 

%token 

DESCENDING 

%token 

DESTROY 

%token 

DIGITS 

%token 

EACH 

%token 

ELSE 

%token 

END 

%token 

ENTITY 

%token 

EVERY 

%token 

EXCLUDE 

%token 

FALSE  T 
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%token  FLOAT 

%token  FOR 

%token  FROM 

%token  IMAGE 

%token  INCLUDE 

%token  INTEGER 

%token  INTO 

%token  IN 

%token  IS 

%token  LOOP 

%token  MAX 

%token  MIN 

%token  MOVE 

%token  NEW 

%token  NOT 

%token  NO 

%token  NULLT 

%token  OF 

%token  OR 

%token  OVERLAP 

%token  POS 

%token  PRINTLINE 

%token  PRINT 

%token  RANGE 

%token  SET 

%token  SOME 

%token  STRING 

%token  SUBTYPE 

%token  SUM 

%token  THEN 

%token  TRUET 

%token  TYPE 

%token  UNIQUE 

%token  VALUE 

%token  VAL 

%token  WHERE 

%token  WITHIN 

%token  WITHNULL 

%token  WITHOUTNULL 

%token  WITH 

%token  XOR 

%token  <str>    IDENTIFIER 

%token  <str>    CHARACTERSTRING 

%token  <str>    FLOATLITERAL 

%token  <str>    INTEGERLITERAL 

%token  ELIPSES 

%token  DOT 

%token  ASSIGN 

%token  COLON 
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%token    IMPLY 
%token    EQ 
%token    NE 
%token   GE 
%token   GT 
%token    LE 
%token   LT 
%token   COMMA 
%token   SEMICOLON 
%token    LP 
%token    RP 
%token    LCB 
%token    RCB 
%  token    HYPHEN 


%start  statement 
%% 

statement: 
ddl  statement 

I  {" 

db   ptr  =  cuser  dap   ptr->ui    li   type.li   dap.doi   curr  db.cdi   db.dn   fun; 

} 
dml   statement 


/*  Three  ident   list  struct  are  maintained  in  dapkmsinfo:         */ 

/*  1.  Whenever  a  list  of  identifiers  is  read,  the  name_id  of   */ 

/*  each  identifier  is  kept  in  the  linked  list  dki_temp_ptr  */ 

/*  2.  When  there  is  more  than  one  list  to  be  compared  for        */ 

/*  uniqueness,  the  nameid  of  all  identifiers  are  kept  in    */ 

/*  the  link  list  dki   namel    ptr  and  dki_temp_ptr.                        */ 

/*  3.  The  name   id  of  type  or  subtype  declaration  are  kept  in    */ 

/*  the  link  list  dki   id   ptr  and  dki_temp_ptr.                  */ 

/*  The  new   id  rule  below  will  detect  duplicate  declaration  of  */ 

/*  name   id  against  dki   id   ptr,  but  will  not  issue  an  error         */ 
/*  message.  It  will  set  the  flag  "found"  on  instead.  */ 

/*  The  id   list  rule  check  duplication  against  dkitempptr  and    */ 
/*  issue  error  message  using  the  variable  "serror".  So,"serror"  */ 
/*  must  be  set  before  using  the  rule  id_list.  */ 

/*  Similarly,  the  namel  and  namellist  rules  use  "serror"  when    */ 
/*  duplication  is  detected  against  dki  namelptr.  So  "serror"         */ 
/*  must  also  be  set  before  hand.  */ 

nameid:  IDENTIFIER 

/*  this  rule  assigns  IDENTIFIER  to  the  variable  temp_value  */ 
/*  and  trancates  it  if  it  is  longer  then  ENLength  */ 
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{ 

#ifdef  DYacFlag 

printf("name_id  %s  recognized\n",$l); 
#endif 

strncpy(temp_value,$l.ENLength); 
if  (strlen(Sl)  >  ENLength) 

printf(  "warning:  nameid  %s  trancated  to  %s\n",$l,temp_value); 
} 


new   id:  name   id 

/*  Check  for  duplicate  declaration  against  list  pointed  to  */ 
/*  by  dkiidptr.  If  not  found,  insert  it  to  the  list  for    */ 
/*  subsequent  comparisons  of  uniqueness  */' 

{ 
fifdef  DYacFlag 

printf("new   id  recognized\n"); 

#endif 

found  =  FALSE: 

id    ptr  =  kms_ptr->dki   id   ptr; 

while(id_ptr  !  =  NULL  &&~(!found)) 

{ 

if  (strcmp(id   ptr->name.  temp  value)  ==  FALSE) 

found  =  TRUE; 
else 

id   ptr  =  id   ptr- > next: 
}       /*  end  while  */ 
if  (Ifound) 

{ 

id   ptr  =  ident   list   allocQ: 

strcpy(id   ptr->name,  temp  value); 

id   ptr->next  =  kms   ptr->dki   id   ptr; 

kms_ptr->dki_id_ptr  =  idptr; 
} 


} 


new   id   list:         /*  use  dki  temp  ptr  to  keep  list  of  name  id  */ 
new   id 

{    " 
if  (found) 

proc   eval   error(serror,temp_value); 
free_temp_list(); 

kms  ptr->dki_temp_ptr  =  ident_list_alloc(); 
strcpy(kms  ptr->dki  temp  ptr->name,  tempvalue); 
kms  ptr->dki_temp_ptr->next  =  NULL; 

} 
|  new   id   list  COMMA  newid 

{ 
if  (found) 

proc  eval  error(serror,temp  value); 
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temp   ptr  =  ident_list_alloc(); 
strcpy(temp   ptr->name,  tempvalue); 
temp   ptr->next  =  kms  ptr->dki_temp_ptr; 
kms   ptr->dki   tempptr  =  tempptr; 

} 


id   list: 
name   id 

{ 
free_temp_list(); 

kms   ptr->dki   temp  ptr  —  ident_list_alloc(); 
strcpyfkms   ptr->dki   temp   ptr->name.  tempvalue): 
kms  ptr->dki   temp_ptr->next  =  NULL: 

} 
|  idlist  COMMA  nameid 

{ 
found  =  FALSE; 

temp  ptr  =  kms_ptr->dki_temp_ptr; 
while"((temp_ptr~!=  NULL)  &&  T'found)) 

{ 
if  (strcmp(temp   ptr->name.  temp  value)  =  =  FALSE) 

found  =  TRUE; 

else 

temp   ptr  =  temp  ptr->next; 

} 
if  (Ifound) 

{ 
temp   ptr  =  ident   list_alloc(); 
strcpy(temp_ptr->name,  tempvalue); 
temp   ptr- > next  =  kms_ptr->dki_temp_ptr; 
kms  ptr->dki  temp  ptr  =  temp  ptr; 

} 
else      /*  found  duplicate  */ 

proc   eval  error(serror,temp  value); 
} 


namel:  nameid 

{ 
#ifdef  DYacFlag 

printf("enter  namel\nM); 
#endif 

found  =  FALSE; 

tempptr  =  kms_ptr->dki_namel_ptr; 

while-((temp_ptr_!=  NULL)  kk  (Ifound)) 

{ 

if  (strcmp(temp_ptr->name,  temp_value)==  FALSE) 
found  -  TRUE; 
else 

temp  ptr  =  temp  ptr->next; 
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} 

if  (!found) 

{ 

idptr  =  ident_list   alloc(); 
strcpy(id_ptr->name,  temp   value); 
id_ptr->next  =  kms_ptr->dki   namel    ptr; 
kms_ptr->dki_namel   ptr  =  id   ptr; 

} 
else 

proc_eval  error(serror,temp  value); 
#ifdef  DYacflag 

printf("exit  namel  proc\n"); 
#endif 
} 


namel_list:    /*  remember  to  call  free   namel    list  before  using  */ 
namel    list  for  the  first  list  */ 
namel 

{ 

free   temp   list ( ) : 

kms_ptr->dki_temp_ptr  =  ident   list   alloc(); 
strcpy(kms_ptr->dki   temp   ptr->name,  temp   value); 
kms   ptr->dki   temp   ptr->next  =  NULL; 

} 
namel    list  COMMA  namel 

{ 

temp  ptr  =  ident   list   allocQ; 
strcpy(temp   ptr->name,  temp  value); 
temp_ptr->next  =  kms_ptr->dki_temp  ptr; 
kms_ptr->dki_temp_ptr  =  temp_ptr; 
} 


/**    ddl  statement    **/ 

ddl  statement: 
DATABASE  name  id  /*  database  name  */ 

/*    the  fun   dbid   node  is  located  and  compared  for  correctness    */ 

{ 
#ifdef  DYacFlag 

printf("name  id  in  ddl  statement  recognized\n"); 
#endif 

db  ptr  =  cuser  dap  ptr->ui_li   type.lidap.dpicurrdb.cdidb.dnfun; 

if  (strcmp(temp  value,  db_ptr->fdn_name)  !=  FALSE) 

{ 
serror  =  0; 
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proc   eval   error(serror,temp_value); 
YYACCEPT; 

} 
kms  ptr->dki   idptr  =  ident   list   alloc (); 
strcpy(kms  ptr->dki_id_ptr->name.  temp_value); 
kms_ptr->dki_id_ptr->next  =  NULL: 

} 
IS  declarative  item   list  end   database  SEMICOLON 


end   database: 
END 
I  END  nameid 

{ 
if  (strcmp(temp  value,  db  ptr->fdn_name)  !=  FALSE) 

printf("warning:  different  db  name  declared  at  end,  ignored\n"); 

} 


declarative   item    list:  declarative_item 

i  declarative   item   list  declarative   item 


declarative   item:  declaration 
|  overlap   rule 
i  uniqueness  rule 

I  error  SEMICOLON 


overlap  rule: 
OVERLAP 

{ 
serror  =  13;  /*  duplicate  identifier  in  list  */ 
free_namel    list () ; 

} 
namel   list 

{ 
#ifdef  DYacFlag 

printf("first  namel   list  in  overlaprule  part  recognized\n"); 
#endif 

ovr  ptr  =  overlap   node   allocQ; 

ovr  ptr->num   sub  node  =  0; 

ovr_ptr->snlptr  =  NULL; 

temp_ptr  —  kms_ptr->dki_temp_ptr; 

while  (temp_ptrT=  NULL) 

{ 
subptr  =  db  ptr->fdn   subptr; 

in  =  FALSE7 

while  ((subptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(temp  ptr->name,  subptr->gsn   name)  ==  FALSE) 
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} 

else 


in  =  TRUE; 

/*  overlap  types  must  be  terminal  subtype  */ 

if  (!(subptr->gsn_terminal)) 

proceval   error (14, temp  ptr->name); 
else 

{ 

find_base_type(subptr,base  name); 

if  (ovr_ptr->num_sub  node  ==  0) 

strcpy(ovr_ptr->base_type   name, base   name); 

else  if  (strcmp(ovr_ptr->base_type_name.base   name)) 
/*  overlap  types  must  have  same  base  type  */ 
proceval  error(20,temp   ptr->name); 

snlptr  =  subnode   list   alloc (); 

snl_ptr->subptr  =  subptr; 

snl_ptr->next  =  ovr  ptr->snlptr; 

ovr_ptr->snlptr  =  snl  ptr; 

ovr_ptr->num  sub_node+  +  ; 

} 


subptr  =  subptr->gsn   next   genptr; 


}  enc 

if  (!in)    /*  undeclared  subtype  name  */ 

proceval  error  ( 10, temp   ptr->name); 
temp   ptr  =  temp   ptr->next: 
} 
} 
WITH  namellist  SEMICOLON 

{ 
#ifdef  DYacFlag 

printf( "second  namel    list  in  overlap  rule  part  recognized\n"); 
#endif 

temp_ptr  =  kms_ptr->dki_temp_ptr; 

while  (tempptr  !=  NULL) 

{ 

subptr  =  db   ptr->fdn   subptr; 

in  =  FALSE? 

while  ((subptr  !=  NULL)  kk  (!in)) 

{ 
if  (strcmp(subptr->gsn   name,  temp  ptr->name)  ==  FALSE) 

{ 

in  =  TRUE; 

/*  overlap  types  must  be  terminal  subtype  */ 

if  (!(subptr->gsn_terminal)) 

proc   eval_error(14,temp_ptr->name); 
else 

{ 

find   base_type(subptr,base_name); 
if  (strcmp(ovr  ptr->base  type   name.'  dse_name)) 
/*  overlap  types  must  have  same  base  type  */ 
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proceval  error ( 20, temp_ptr-> name); 
snlptr  =  sub_node_list   alloc(); 
snl_ptr->subptr  =  subptr; 
snl_ptr->next  =  ovr   ptr->snlptr; 
ovr_ptr->snlptr  =  snl  ptr; 
ovr_ptr->num   sub   node-f-f; 

} 
}       /*  end  in  =  TRUE  */ 

else     /*  strcmp  ==  TRUE  */ 

subptr  =  subptr->gsn   next   genptr; 
} 

if  (!in)     /*  undeclared  subtype  name  */ 
proc_eval_error(10,temp   ptr- > name); 

tempptr  =  temp  ptr->next; 

}    /*  end  while  temp  ptr  */ 
ovr_ptr->next  =  db  ptr->fdn   ovrptr; 
db   ptr->fdn   ovrptr  =  ovr  ptr; 
db_ptr->fdn   num   ovr++; 
#ifdef  DYacFlag" 

printf( "overlap  rule  part  done\n"); 
#endif 

} 


uniqueness  rule: 
UNIQUE" 

{ 
#ifdef  DYacFlag 

printf("uniqueness_rule  part  recognized\n"); 
#endif 

serror  =  13;      /*  duplicate  identifier  in  list  */ 

} 
id   list  WITHIN  namejd  SEMICOLON 

{ 

entptr  =  db   ptr->fdn   entptr; 
subptr  =  db_ptr->fdn   subptr; 
in  =  FALSE7 
while  ((entptr  !=  NULL)  &&  (!in)) 

{ 
if  (strcmp(entptr->en   name,  temp  value)  ==  FALSE) 

{ 

in  =  TRUE; 

firstfunct   ptr  =  entptr->en   ftnptr; 

} 
else 

entptr  =  entptr->en   next   ent; 
}    /*  end  while  entptr  */ 
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while  ((subptr  !=  NULL)  &&  (!in)) 

{ 
if  (strcmp(subptr->gsn_name,  tempvalue)  ==  FALSE) 

{ 

in  =  TRUE; 

first _funct   ptr  =  subptr- >gsn   ftnptr; 

} 
else 

subptr  =  subptr- >gsn   next   genptr; 
}    /*  end  while  subptr  * 

if  (!in)         /*  undefined  entity  type  or  subtype  */ 

proc_eval_error(15,temp   value); 
else 
/*  find  the  function  node  and  set  its  unique  field  to  true  *, 

{ 

tempptr  =  kms_ptr->dki   temp  ptr; 
while  (temp_ptr  !-  NULL) 

{ 

funct_ptr  =  first_funct   ptr; 
found"=  FALSE; 
while  ((funct    ptr  !=  NULL)  &&  (Ifound)) 

{ 

if(strcmp(temp_ptr->name,  funct   ptr->fn   name)  ==  FALSE) 

{ 

found  =  TRUE; 
funct_ptr->fn_unique  =  TRUE; 

} 
else 

functptr  =  funct   ptr->next; 

}    /*  end  while  funct   ptr  */ 

if  (Ifound)    /*  undelared  function  identifier  */ 
proc_eval_error(6,temp_ptr->name); 

tempptr  —  temp_ptr->next; 
}    /*  end  while  temp_ptr  */ 

} 
#ifdef  DYacFlag 

printf("uniqueness_rule  part  done\n"); 
#endif 

} 


declaration:  number  declaration 
|  TYPE  newjd 

{ 
#ifdef  DYacFlag 

printf("type  declaration  recognized\n"); 
#endif 

strcpy(temp_name_id,  temp  value); 
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} 

type  declaration 

{ 
#ifdef  DYacFlag 

printf("type_declaration  done\n"); 
#endif 

} 
|  SUBTYPE  new  id 

{ 
#ifdef  DYacFlag 

printf( "subtype  declaration  recognized  \n"): 
#endif 

strcpy(temp   nameid.  tempvalue); 

} 
subtype   declaration 

{ 
#ifdef  DYacFlag 

printf( "subtype   declaration  done\n"); 
#endif 

I 


numberdeclaration:  I*  section  4.2.5  * 

{    ~ 

serror  =  1;  /*  duplicate  constant  name  * 

} 
newidlist  COLON  CONSTANT  ASSIGN  simple  const  SEMICOLON 

{ 

temp_ptr  =  kms   ptr->dki_temp_ptr; 
while  (tempptr  !=  NULL) 

{ 
/*  At  this  point  ent   non   node's  are  filled  with  the  */ 

/*  information  previously  allocated  in  the  kms  info  */ 

/*  structure.    The  amount  of  nodes  is  dependent  on    */ 

/*  the  amount  of  names  in  the  temp  structure.  */ 


} 


addentnon   node(temp   ptr->name); 
tempptr  =  temp_ptr->next; 
} 


simple_const: 

/*  dapkmsinfo  structures  are  built  for  subsequent  */ 
/*  nonentity  node  insertion  into  the  schema  */ 

INTEGER  LITERAL 

{ 
put_dki_ent_non(T,  $l); 

} 
I  FLOAT  LITERAL 
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{ 

put_dki_ent_non(T,  $1); 

} 
CHARACTERSTRING 

{ 
put_dki_ent_non('s',  $1); 

} 


type  declaration: 
IS  type  definition  SEMICOLON 

/*  the  following  switch  statement  allocates  a  nonentity  or  derived  */ 
/*  node  to  the  schema  dependent  upon  the  value  of  curr  op  */ 

{ 
switchfcurr  op) 

{ 

case  NonEnt: 

add_ent_non   nodeftemp   name   id); 
break; 

case  Derived: 

dnnptr  =  der  non   node   allocQ; 
strcpy(dnnptr->dnn_name,  tempname   id  ); 
dnnptr->dnn_type  =  kms_ptr->dki  ent   non.enn   type  ; 
dnnptr->dnn_total_length  = 

kms_ptr->dki_ent   non.enntotal   length  ; 
dnnptr->dnn  range  =  kms  ptr->dki  ent   non.enn   range  ; 
dnnptr->dnn   numvalues  = 

kms  ptr->dki  ent   non.enn   num   values  ; 
dnnptr->dnn  value  =  kms   ptr->dki  ent   non.enn   value  ; 
kms  ptr->dki  ent   non.enn  value  =  NULL; 
dnnptr->dnn   next   node  =  db  ptr->fdn   nonderptr; 
db   ptr->fdn   nonderptr  =  dnnptr; 
break; 

}    /*  end  switch  */ 

} 
|  IS  entitytypedefinition  SEMICOLON 

{ 

/*  check  if  nameid  is  on  the  ent  list  of  the  schema  */ 
entptr  =  db  ptr->fdn _entptr; 
in  =  FALSET 
while  ((entptr  !=  NULL)  &&  (!in)) 

{ 
if  (strcmp(entptr->en_name,  temp_name_id)  ==  FALSE) 

in  -  TRUE; 

else 

entptr  =  entptr->en   nextent; 
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} 

if  (Jin) 

{ 
entptr  =  ent   nodeallocQ; 
strcpy(entptr->en   name,  temp_name_id); 
entptr->en_last_ent_id  =  0; 
entptr->en_num_funct  =  0; 
entptr->en   terminal  =  TRUE; 
entptr->en  ftnptr  =  NULL; 
entptr- >en   next   ent  =  db   ptr->fdn_entptr; 
db   ptr->fdn_entptr  =  entptr; 
db   ptr->fdn   num_ent-i--t-; 

} 
if  (entptr->en_num   funct  ==  0) 

{ 
entptr- >en   ftnptr  =  funct   ptr: 
entptr->en   num   funct  =  entptr->en   num   funct  +  functcount; 

} 
else 

proc   eval   error(3,temp   nameid);       *  duplicate  entity  type  name  */ 
funct_count  =  0; 
last   funct   ptr  =  NULL; 

} 

incomplete   type   declaration 


incompletetypedeclaration:       /*  entity  */ 
SEMICOLON 

{ 

#ifdef  DYacFlag 

printf( "incomplete   type  declaration  recognized\n"); 
#endif 

if  (found)        /*  duplicate  entity  type  */ 
proc_eval_error(3,temp_value); 

else 

{ 
/*  add  entity  node  here  */ 

entptr  =  ent   node   alloc(); 
strcpy(entptr->en   name,  temp  value); 
entptr->en_last_ent_id  =  0; 
entptr->en   num   funct  =  0; 
entptr->en   terminal  =  TRUE; 
entptr->en_ftnptr  =  NULL; 
entptr->en_next_ent  =  db  ptT- >fdn   entptr; 
db   ptr->fdn   entptr  =  entptr; 
db  ptr->fdn   num   ent-h  +  ; 

} 
#ifdef  DYacFlag 

printf( "incomplete   type  declaration  done\n"); 
#endif 
} 
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typedefinition: 
enumeration   type  definition 

{  curr   op  =  NonEnt;    } 
j  integer  range 

{  curr  op  =  NonEnt;    } 
j  float   range 

{  curr_op  =  NonEnt;    } 
!  derivedtype   definition 

{  currop  =  Derived;  } 


enumeration   type  definition: 
LP 

/*  enumeration  dap  kms  info  structures  for  */ 
/*  nonentity  and  function  nodes  are  initialized  */ 

{ 
^lfdef  D\  acFlag 

printf("LP  in  database   specification  recognized\n") 
=endif 

kms    ptr-^dki   ent    non.enn    type  =  V; 
kms   ptr->dki   ent   non.enn   range  =  TRUE; 
kms_ptr->dki_ent_non.enn   num  values  =  0; 
kms   ptr->dki  ent   non.enn   constant  =  FALSE; 

} 
enumeration   literal   list  RP 


enumeration  _literal_list: 
enumerationliteral 

/*  the  pointers  are  set  for  value  nodes  with  */ 
/*  concurrent  incrementation  of  the  number  of  */ 
/*  value  nodes  present  in  the  nonentity  and     */ 
/*  function  structures  */ 


kms   ptr->dki   ent   non.ennnum   values+  +  ; 

kms   ptr->dki  ent   non.enn_value  —  entvalptr; 

kms  ptr->dki  entnon.enntotallength  =  enumlength; 

entval   ptr  =  NULL; 


enumeration   literal  list  COMMA  enumeration   literal 

{ 

kms  ptr->dki   ent   non.enn   num_values+  +  ; 

entval   ptr2  =  kms  ptr->dki  ent   non.ennvalue; 

while  (entval_ptr2->next  !=  NULL) 
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entval   ptr2  =  entval   ptr2->next; 
entval_ptr2->next  =  entvalptr; 
if  (enumlength  >  kms_ptr->dki   ent   non.enn    total  length) 
kms   ptr->dki_ent   non.enn   total   length  =  enum   length: 
entvalptr  =  NULL: 

} 


enumerationliteral:  IDENTIFIER 

{ 
#ifdef  DYacFlag 

printf( "enumeration   literal  recognized\  n"): 
#endif 

entval   ptr  =  ent   value   alloc(); 

enumlength  =  strlen($l)  +  1; 

entval   ptr->ev   value  =  var  str   allocfenum   length): 

strcpyfentval   ptr->ev    value,  $1); 

entval   ptr->next  =  NULL: 
} 


integer  range:  RANGE  int   range 


intrange  :INTEGER_LITERAL  ELIPSES  LNTEGERLITERAL 

{ 

add_range_non_node('i',  $1,  $3); 

} 


floatrange:  RANGE  FLOAT  LITERAL  ELIPSES  FLOATLITERAL 

{ 

add_range_non_node(T,  $2,  $4); 

} 


derivedtypedefinition:  NEW  name   id  derived   range 

/*  the  nonentity,  subtype  nonentity,  and  derived  type  */ 
/*  nonentity  nodes  are  examined  to  find  which  con-  */ 
/*  the  current  value  of  IDENTIFIER  */ 

{ 

serror  =  16;  /*  incompatable  derived  type  */ 

compare_non_node_type(temp  value,  serror); 

} 


derivedrange:  /*  enumeration  type  not  included?  section  4.2.4  */ 

integer  range 
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float   range 


entity  _type_definit  ion: 
ENTITY 

{ 

free_namel   list(); 

} 
entitycomponent   declaration   list  END  ENTITY 
I  ENTITY  END  ENTITY 


entitycomponent   declaration   list: 
entitycomponent   declaration 
entity_component   declaration   list  entity   component   declaration 


entity_component   declaration: 
narnellist  COLON 

{ 

*  initialize  use_prev_name  flag  x 
use   prev   name  =  FALSE: 

} 
function_tvpe_declaration 

{ 
^ifdef  DYacFlag 

printf( "function _type_declaration  in  entity_compo_declaration\n"); 
=pendif 

temp_ptr  =  kms_ptr->dki_temp  ptr; 

while  (temp  ptr  !=  NULL) 

{ 

funct   count : 

funct    ptr  =  function   node  alloc(); 
strcpy(funct   ptr->fn   name,  temp  ptr->name); 
if  (use_prev_name) 

funct _ptr->fn   type  —  'e:; 
else 

funct   ptr->fn   type  —  kms  ptr->dki  funct. fn   type; 
funct   ptr->fn   range  =  kms   ptr->dki  funct. fn  range; 
funct   ptr->fn   total   length  =  kms   ptr->dki  funct. fn   total  length; 
funct   ptr->fn   num   value  =  kms_ptr->dki  funct. fn_num_value; 
funct   ptr->fn   value  =    kms_ptr->dki_funct.fn  value; 
funct   ptr->fn   entptr  =  kms_ptr->dki_funct.fn_entptr; 
funct   ptr->fn   subptr  =  kms   ptr->dki  funct. fn   subptr; 
funct   ptr->fn   nonentptr  =  kms  ptr->dki  funct. fn   nonentptr; 
funct   ptr->fn   nonsubptr  —  kms  ptr->dki_funct.fn_nonsubptr; 
funct   ptr->fn   nonderptr  =  kms  ptr->dki_funct.fn_nonderptr; 
funct   ptr->fn   entnull  =  kms_ptr->dki_funct.fn_entnull; 
funct   ptr->fn   unique  =  kms_ptr->dki_funct.fn_unique; 
funct   ptr->next  =  last_funct_ptr; 
last   funct   ptr  =  funct  ptr; 
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temp   ptr  =  temp   ptr->next; 
} 
} 
error  SEMICOLON 


functiontype  declaration: 
function   type  end   scalar  function 
j  set   type  definition  SEMICOLON 


set   type  definition:  SET  OF  function   type 

T 

kms  ptr->dki  funct.fn   set  =  TRUE; 
} 


end   scalar  function: 
SEMICOLON 
ASSIGN 

{ 

serror  =  18;     /*  incompatible  assignment  */ 
kms_ptr->dki_funct.fn_num   value  =  1; 
kms   ptr->dki  funct.fn   value  =  ent   value  alloc(); 
kms_ptr->dki_funct.fn_value->next  =  NULL; 

} 
default   value  SEMICOLON 


default   value: 
INTEGER  LITERAL 

{ 
if  (kms  ptr->dki  funct.fn   type  !=  'i') 

proc_eval_error(serror,$l);      /*  incompatible  assignment  */ 
kms_ptr->dki  funct.fn   value->ev   value  =  var  str   alloc(strlen($l)  +  l); 
strcpy(kms_ptr->dki_funct.fn   value->ev  value, $1); 

} 
|  FLOATLITERAL 

{ 
if  (kms_ptr->dki_funct.fn   type  !=  T) 

proc_eval_error(serror,$l);      /*  incompatible  assignment  */ 
kms_ptr->dki_funct.fn_value->ev_value  =  var  str_alloc(strlen($l)  +  l); 
strcpy(kms_ptr->dki_funct.fn   value->ev  value, $1); 

} 
I  CHARACTERSTRING 

{ 

if  (kms_ptr->dki_funct.fn   type  !=  V) 

proc_eval_error(serror,$l);      /*  incompatible  assignment  */ 

kms_ptr->dki_funct.fn_value->ev  value  =  var  str   alloc (strlen(Sl) -Hi); 

strcpy(kms_ptr->dki_funct.fn  value->ev  value,$l); 
} 
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boolean   value 

{ 
if  (kms_ptr->dki_funct.fn_type  !=  'b') 

proc_eval_error(serror."");       /*  incompatible  assignment  *. 
} 


boolean   value: 
TRUEJT 

{ 

kms   ptr->dki   funct.fn   value->ev  value  =  var  str  alloc(2): 
strcpy(kms_ptr->dki  funct.fn   value->ev   value. "1"): 

} 
I  FALSET 

{ 

kms_ptr->dki_funct.fn  value->ev   value  =  var  str  alloc(2): 
strcpvfkms   ptr->dki   funct.fn   value->ev   value. "0"): 
} 


function    type: 
type_mark  constraint 
STRING  LP  stnnsrange  RP 

{ 

put_dki_funct('s'); 

kms_ptr->dki   funct.fn   total   length  = 
str  to   num(kms   ptr->dki  ent   non.enn   value->next->ev   value) 
str_to_num(kms_ptr->dki  ent_non.enn_value->ev   value)  -+-  1; 
} 


string_range: 
int   range 
!  INTEGERLITERAL 

{ 
add   range   non   node('i',  "1",  Si); 

} 


type   mark: 
name  id 

{ 

useprev   name  =  TRUE; 
ennptr  =  db   ptr->fdn    nonentptr; 
entptr  =  db  ptr->fdn   entptr; 
subptr  =  db   ptr->fdn   subptr; 
snnptr  =  db   ptr->fdn   nonsubptr; 
dnnptr  =  db   ptr->fdn   nonderptr; 
in  =  FALSEf 
while  ((ennptr  !=  NULL)  &&  (!in)) 

{ 
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if  (strcmp(ennptr->enn   name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 

put   dkifunct (ennptr- >enn   type); 

kms  ptr->dki  funct.fn_total_length  = 

ennptr- >enn_total_length; 

kms   ptr->dki  funct.fn   nonentptr  =  ennptr; 

} 
else 

ennptr  =  ennptr->enn_next_node; 
} 

while  ((snnptr  !=  NULL)  kk  (!in)) 

{ 
if  (strcmp(snnptr->snn_name.  tempvalue)  ==  FALSE) 

{ 

in  =  TRUE; 

put  _dki_funct  (snnptr- >snn_type): 
kms   ptr->dki  funct.fn   total   length  = 

snnptr- >snn_total   length: 
kms   ptr->dki  funct.fn   nonsubptr  =  snnptr: 

} 
else 

snnptr  =  snnptr->snn    next   node: 
} 

while  ((dnnptr  !=  NULL)  kk  (!in)) 

{ 
if  (strcmp(dnnptr->dnn_name,  temp  value)  ==  FALSE) 

{ 

in  =  TRUE; 

put   dki_funct(dnnptr->dnn   type); 

kms   ptr->dki  funct.fn   total   length  = 

dnnptr->dnn   total  length; 
kms_ptr->dki_funct.fn_nonderptr  =  dnnptr; 

} 
else 

dnnptr  =  dnnptr->dnn_next_node; 
} 

while  ((subptr  !=  NULL)  kk  (!in)) 

{ 
if  (strcmp(subptr->gsn_name,  temp  value)  ==  FALSE) 

{ 

in  =  TRUE; 

putdkifunct('E'); 

kms_ptr->dki_funct.fn_subptr  =  subptr; 

} 
else 

subptr  =  subptr- >gsn   next    genptr; 
} 
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while  ((entptr  !=  NULL)  &&  (!in)) 

{ 
if  (strcmp(entptr->en_name,  temp_value)  ==  FALSE) 

{ 

in  =  TRUE; 

put_dki_funct('E'); 

kms_ptr->dki_funct.fn_entptr  =  entptr; 

} 
else 

entptr  =  entptr->en   next  ent: 
} 

if  (in) 

{ 
strcpv(temp,  temp  value); 

} 
else     /*  id  must  be  previously  declared  */ 
proc_eval_error(19.temp  value); 

} 
FLOAT 

{ 

putdkifunct(T): 

} 
| INTEGER 

{ 

put_dki_funct('i'): 

} 
BOOLEAN 

{ 

putdkifunct('b'); 

} 


constraint: 
/*  empty  */ 
|  range  constraint 
|  nullconstraint 

{ 

if  (kms_ptr->dki_funct.fn_type  !=  'E') 

{ 

printf( "warning:  illegal  null  constraint  declaration  ignored\n"); 
kms  ptr->dki_funct.fn_entnull  =  FALSE; 

} 
} 


range  constraint: 
/*  range  constraints  here  are  ignored,  no  action  necessary  */ 
integer  range 
j  float  range 
|  enumeration   range 
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enumeration  range:  RANGE  IDENTIFIER  ELIPSES  IDENTIFIER 


nullconstraint: 
WITHNULL 

{ 
kms_ptr->dki_funct.fn   entnull  =  TRUE; 

} 
!  WITHOUTNULL 


subtype   declaration: 
IS 

{ 
serror  =  13;        /*  duplicate  id  in  list  */ 

} 
completesubtype  SEMICOLON 
I   incomplete   subtype   declaration 


complete   subtype: 
name   id  subtype  definition 

{ 

serror  =  17;  /*  incompatable  subtype  declaration  */ 

compare  non    node   type(temp  value,  serror); 

/*  create  sub  non   node  */ 

snnptr  =  subnonnode   alloc(); 

strcpy(snnptr->snn   name,  temp  value); 

snnptr- >snn_type  =  kms_ptr->dki   ent   non.enn   type; 

snnptr->snn_total   length  =  kms   ptr->dki  ent   non.enn   total   length; 

snnptr->snn_range  =  kms_ptr->dki_ent   non.enn   range; 

snnptr->snn_num_values  =  kms   ptr->dki  ent   non.enn   num   values; 

snnptr- >snn_value  =  kms  ptr->dki   ent   non.enn   value; 

kms   ptr->dki  ent   non.enn   value  =  NULL; 

snnptr- >snn_next   node  =  db  ptr->fdn   nonsubptr; 

db_ptr->fdn_nonsubptr  =  snnptr; 

} 
|  id   list 

{" 

/*  locate  or  create  the  gen  sub  node  */ 

thesubptr  =  db_ptr->fdn   subptr; 

in  =  FALSE; 

while  ((the_subptr  !=  NULL)  &&  (!in)) 

{ 

if  (strcmp(the_subptr->gsn_name,  temp_name  id)  ==  FALSE) 

in  =  TRUE; 
else 

the  subptr  =  the  subptr->gsn   next   genptr; 


152 


} 

if  (!in) 

the_subptr  =  new_gen_sub   nodeftemp  name   id): 

For  each  name_id  in  id   list. locate  the  gen   sub  node     ' 
or  the  ent_node  and  change  them  to  non   terminal  type.  * 
/*  Corresponding  overlap  node  is  created  and  the  subptr    */ 
*  is  updated.  *  I 

temp_ptr  =  kms_ptr->dki   temp   ptr: 
while  (temp   ptr  !=  NULL) 

{ 
subptr  =  db   ptr->fdn   subptr: 

entptr  =  db_ptr->fdn  entptr: 
in  =  FALSE: 

while  ((subptr  !=  NULL)  kk  (!in)) 

{ 
if  (strcmp(subptr->gsn   name,  temp   ptr->name)  ==  FALSE) 

{ 

in  =  TRUE: 
subptr- >gsn_terminal  =  FALSE: 

the   subptr->gsn   num   sub : 

snl   ptr  =  sub   node   list   alloc(): 

snl   ptr->subptr  =  subptr: 

snl  ptr->next  =  the  subptr->gsn   subptr; 

the  subptr- >gsn_subptr  =  snl_ptr: 

} 

else 
subptr  =  subptr->gsn   next   genptr; 

} 

while  ((entptr  !=  NULL)  kk  (!in)) 

{ 
if  (strcmp(entptr->en   name,  temp_ptr->name)  ==  FALSE) 

{ 

in  -  TRUE; 

entptr->en_terminal  =  FALSE: 
the   subptr->gsn   num   ent— — ; 
enl   ptr  =  ent   node_list_alloc(): 
enl  ptr->entptr  =  entptr; 
enl  ptr->next  —  the  subptr->gsn_entptr; 
the  subptr->gsn   entptr  =  enl_ptr: 

} 

else 
entptr  =  entptr->en_next_ent: 

} 
if  (!in)  /*  use  of  undefined  entity  type  or  subtype  */ 

proc  eval   error(15,temp_ptr->name); 

temp  ptr  =  temp_ptr->next; 

} 

} 
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entity   typedefinition 

{ 

if  (the_subptr->gsn_num  funct  ==0) 

{ 

the_subptr->gsn   ftnptr  =  funct   ptr: 
the_subptr->gsn_num_funct  =  functcount; 

} 
else         /*  entity  subtype  name  must  be  unique  */ 

proc   eval   error (12, temp   name   id); 
functcount  =  0: 
lastfunctptr  =  NULL: 

} 
|  STRING  LP  string  range  RP 


subtype   definition: 
RANGE  enumeration   literal  ELIPSES  enumeration   literal 
integer  range 
float    range 
/*  empty  */ 


incomplete   subtype   declaration: 
SEMICOLON  /*  entity  */ 

{ 
if  (!found) 

subptr  =  newgensubnodeftemp  value); 
else    /*  duplicate  subtype  */ 

proc   eval  error(l2,temp   value); 


I 


/********************* / 

/**    dml  statement    **/ 

*********************  / 


/ 


dml  statement: 
create  statement 
|  destroy  statement 
[  movestatement 
|  loop  statement 


dml  statement2: 

assignment   statement 
I  include  statement 
|  exclude  statement 
|  destroy   statement 
|  move  statement 
|  procedure  call 
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createstatement: 
CREATE  NEW 

{ 

kms_ptr->dml_statemeiH   ptr  =  dml  statement    alloc(); 
kms   ptr->dml   statement   ptr->type  =  Create: 
kms_ptr->dml_statement   ptr->dap  expr  ptr  =  NULL: 
kms_ptr->dml_statement   ptr->indexed   comp  ptr  =  NULL: 
kms_ptr->dml_statement   ptr- > basic   expr  ptr  =  NULL: 
kms_ptr->dml_statement   ptr->comp   assoc_ptr  =  NULL: 

} 
create_part  SEMICOLON 

{ 
kms   ptr->dml   statement_ptr->comp_assoc_ptr  —  comp_assoc_ptr: 

} 


create   part: 

{ 
serror  =13:       *  duplicate  identifiers  in  list  * 

} 
idlist 

{ 

I*  perform  error  checking  and  fill  structure  dap_create_list  * 
/*  All  functions  for  each  name_id  in  the  list  is  attached  on  */ 

*  dap  createList  pointed  to  by  kms_ptr->dki_create     */ 
if  (!proc   create  ent   type(db   ptr->fdn_entptr)) 
proc   create  sub  type(db   ptr->fdn_subptr): 

} 
named    aggregate 

{ 
build  _req_line_list(): 
/*  temp  for  program  testing  */ 
req  ptr  =  kms   ptr->dki_req_ptr; 
while  (reqptr  !=  NULL) 

{ 
printf("%s  n".req_ptr->req_line); 

req   ptr  =  req   ptr- > next: 
} 


} 


named  _aggregate: 
LP  component    associationlist  RP 
|  /*  empty  */ 

{ 
comp   assocptr  =  NULL; 

} 
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component    association    list: 
component    association 

{ 
kms_ptr->dml   statement_ptr->comp   assoc   ptr  =  new   comp   assoc   ptr; 

comp   assoc   ptr  =  kms   ptr->dml   statement   ptr->comp   assoc   ptr: 
comp   assoc   ptr->next  =  NULL: 

} 
|  componentassociationlist  COMMA  componentassociation 

{ 

new  comp   assoc   ptr- > next  =  comp   assoc   ptr; 

comp   assoc   ptr  =  new   comp   assoc   ptr: 
} 


component    association: 
IDENTIFIER 

{ 

/*  check  if  name   id  is  a  valid  attribute  name  * / 
del   ptr  =  kms   ptr->dki   create: 
in  =  FALSE: 
while  ((dcl_ptr  !=  NULL)  &&  (!in)) 

{ 

av   ptr  =  del   ptr->av   pair   ptr; 

while  ((avptr  !  =  NULL)  &~&  (!in)) 

{ 
if  (strcmp(av   ptr->ftnptr->fn   name,  $1)  ==  0) 

in  =  TRUE! 
else 

av   ptr  =  av   ptr- > next; 

} 
del   ptr  =  del   ptr->next; 

} 
if  (!in)       /*  invalid  function  name  */ 

proc_eval_error(26,$l); 
else 

{ 

new_comp_assoc_ptr  =  comp   assoc   list   alloc(); 
strcpy(new   comp   assoc   ptr->name,  $1); 
simpleexprptr  =  &(new   comp   assoc   ptr->simple_expr); 

} 
clean   dki  evl   ptr(); 

} 
IMPLY  simpleexpr 

{ 

av   ptr- >num   value  =  kms   ptr->dki   evl   ptr.num   values; 

av_ptr->valptr  =  kms   ptr->dki  evl   ptr.ev  ptr; 

kms_ptr->dki  evl   ptr.ev   ptr  =  NULL; 
} 
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literal  : 
CHARACTERSTRING 

{ 

literaltype  =  String; 
put_dki_ent_value_list(literal_tvpe,$l): 

} 

INTEGER  LITERAL 

{ 

literaltype  =  Integer; 
put  _dki_ent_value_list(  literal   type.$l); 

} 
FLOATLITERAL 

{ 
literaltype  =  Float; 

put_dki_ent_value_list(literal_type,$l); 

} 

IDENTIFIER       '*  Can  be  Entitv,  GenSub  or  Enumeration  constant  */ 

{ 
if  (search_entity($l)  !=  NULL) 

literaltype  =  Entity: 
else  if  (search    gensub($l)  !=  NULL) 

literal   type  =  GenSub: 
else 

literal   type  =  Enum: 
put_dki_ent_value   list  (literal   tvpe.$l); 

} 
!  TRUE  T 

{ 

literal  type  =  Boolean; 
put   dki  ent   value   list(literal   tvpe,"l"); 

} 
I  FALSET 

{ 

literal   type  =  Boolean; 
put_dki  ent   value   list(literal   type."0"); 
} 


Memory  must  be  allocated  before  activating  the  following  rules: 

dap   expr  uses  dapexprptr 

simple  expr  uses  simpleexprptr 
dap   range  uses  dap   range   ptr 

domain  uses  domain   ptr 

Rules  that  allocate  memory  themselves  : 

comp   assco   list  returns  comp   assoc   ptr; 

relation  returns  rel   list   ptr 

basic   expr   list  returns  basic   expr   ptr 
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indexed   component  returns  indexed   compptr 

set   constructor  returns  set   construct_ptr 

function   application  returns  funct   appln   ptr 
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set   constructor: 
LCB 

{ 
set   construct   ptr  =  set   constructor_alloc(); 

simple  expr   ptr  =  simple_exprl_alloc(); 

} 
end   set   constructor 


end   set   constructor: 
basic   expr   list  RCB 

{ 
set   construct   ptr-  >  basic   expr  ptr  =  basic  exprptr: 

basic   expr  ptr  =  NULL: 

} 

simple   expr  IN  set   constructor  part  WHERE  dapexpr  RCB 

RCB         /*  emptv  or  null  list  */ 

{ 

literal   type  =  String; 

put_dki_ent_value_list(literal_type,"$NULL"); 
set   construct   ptr- > basic   expr  ptr  =  NULL; 
set  construct   ptr->set  construct2_ptr  =  NULL; 
set  construct   ptr->set_construct3_ptr  =  NULL; 

} 


set   constructorpart: 

{ 

set   construct2   ptr  =  set   construct2_alloc(); 

set   construct   ptr->set   construct2   ptr  =  set_construct2_ptr; 
set  construct2   ptr->simple_exprl_ptr  =  simpleexprptr; 
dap  expr  ptr  =  &(set_construct2_ptr->dap_expr_ptr); 

} 
namel 

!  { 

set   constructs   ptr  =  set   construct3_alloc(); 

set   construct   ptr->set   construct3_ptr  =  set_construct3_ptr; 

set   construct3   ptr->simple  exprl    ptr  =  simpleexprptr; 

dap  range   ptr  =  &(set  construct3   ptr->dap_range); 

dap  expr  ptr  =  &(set  constructs   ptr->dap  expr  ptr); 

} 
dap  range 


basic  expr  : 
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literal 

{ 

new   basic   exprptr  =  basic   expr  list   allocQ; 

strcpy  (new   basic  _expr_ptr->  lit   array, kms  ptr->dki  evl  ptr.ev   ptr) 
new_basic_expr  ptr->indexed   comp  ptr  =  NULL; 
new_basic_expr_ptr->funct    appln   ptr  =  NULL; 

} 

indexed   component 

{ 

new   basic   expr   ptr  =  basic   expr  list   allocQ; 
new    basic _expr_ptr-> indexed   comp   ptr  —  indexed_comp_ptr; 
new    basic   expr  ptr->funct   appln   ptr  =  NULL; 
strcpy  (new   basic   expr  ptr->lit   array,""): 
indexed   comp  ptr  =  NULL; 

} 
I  function   application 

{ 

new   basic   expr  ptr  =  basic   expr_list   allocQ; 
new   basic   expr   ptr->funct    appln   ptr  =  funct   appln   ptr; 
new   basic   expr   ptr->indexed   comp   ptr  =  NULL; 
strcpy  (new   basic  expr  ptr- >  lit   array.""): 
functapplnptr  —  NULL; 

} 


basic   exprlist  : 
basic   expr 

{ 
new   basic   expr  ptr->next  =  NULL; 

basic   expr  ptr  =  newbasicexprptr; 

} 

basic   expr  list  COMMA  basicexpr 

{ 
new   basic   expr  ptr- >  next  =  basic  exprptr; 

basic   expr  ptr  =  new   basicexprptr; 
} 


dap   expr: 
relation 

{ 
rel_list_ptr->next  =  NULL; 
dap  expr  ptr->rel  listptr  =  rellistptr; 
dap  expr  ptr->relation_type  =  Relation; 
rellistptr  =  NULL; 

} 

rel   andlist 

rel   or   list 


rel    and    list: 
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relation 

{ 
dap  expr_ptr->rel_list_ptr  =  rellistptr; 
rel  Fist   ptr  =  NULL; 

} 
AND  relation 

{ 
rel   list   ptr- > next  =  NULL; 

dapexpr_ptr->rel_list_ptr->next  =  rellistptr; 
dap  expr_ptr->relation_type  =  AndRelation; 
rellistptr  =  NULL; 

} 
j  rel   and   list  AND  relation 

{    ~ 

rel   list   ptr->next  =  dap  expr  ptr->rel   list   ptr; 

dap  expr_ptr->rel_list_ptr  =  rellistptr; 

rellistptr  =  NULL: 
} 


rel   or  list. • 
relation 

{ 
dap   expr_ptr->  rel   list   ptr  =  rellistptr; 
rel   list   ptr  =  NULL; 

} 
OR  relation 

{ 
rel_list_ptr->next  =  NULL; 

dap  expr  ptr->rel  list  ptr->next  =  rel   list   ptr; 
dap_expr_ptr->relation_type  =  OrRelation; 
rellistptr  =  NULL; 

} 
j  rel   and   list  OR  relation 

{    ~ 
rel_list_ptr->next  —  dapexpr  ptr- > rel   list   ptr; 
dap_expr_ptr->rel_list_ptr  =  rellist   ptr; 
rellistptr  =  NULL; 

} 


relation: 

{ 

/*  This  procedure  is  added  to  avoid  reduce/reduce  conflicts  in  YACC  */ 
/*  memory  allocation  for  rel_list   ptr,  simple  expr  ptr  */ 

/*  are  performed  here  */ 

rel   list   ptr  =  relation   list   allocQ; 
simple_expr_ptr  =  simple  expr  1   alloc(); 

} 
relation2; 
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relation2: 
simple   expr 

{         ~ 
rel_list_ptr->simple_exprl    ptr  =  simple  expr  ptr: 
simple   expr   ptr  =  NULL: 

} 

simpleexpr  rel  op 

{  "  " 

rel_list_ptr->simple_expr2_ptr  =  simple_expr2_alloc(): 
rel_list_ptr->simple_expr2_ptr->first_expr  =  simple   expr  ptr: 
rel_list_ptr->simple_expr2   ptr->rel   operator  =  rel   operator: 
simDle_expr_ptr  =  simple  exprl    alloc(): 

} 

simple   expr 

{        " 
rel_list_ptr->simple_expr2    ptr->second   expr  =  simple  expr   ptr  : 
simple_expr_ptr  =  NULL: 

} 

simple   expr  in   op 

{ 

rel_list_ptr->simple_expr3  ptr  =  simple   expr3    alloc(): 

rel   list    ptr- >sim pie  _expr2  ptr->simple   expr  =  simple   expr   ptr: 
simple   expr   ptr  =  NULL: 

rel_list_ptr-> simple  exprS  ptr- > in   op  =  in   op: 
dap_range_ptr  =  dap  range   info   alloc(); 

rel_list_ptr->simple  exprS  ptr->dap  range  =  dap   range   ptr  : 

} 

dap  range 
simpleexpr  in   op  IDENTIFIER 

{ 
if  ((search_entity($3)  !=  NULL)  ||  (search_gensub($3)  !=  NULL)) 

{ 
rel   list    ptr- >simple_expr4   ptr  =  simple_expr4_alloc(): 
rel  list   ptr->simple  expr4   ptr->simple_expr  =  simple_expr_ptr; 
rel   list    ptr->simple_expr4  ptr->in_op  =  in_op: 
strcpy(rel   list   ptr->simple  expr4   ptr->name_id,  $3); 
simple  exprptr  =  NULL: 

} 
else 

proc  ev  al  _error  ( 1 5 .  S  3 ) : 

} 


simpleexpr: 
literal 

{ 
strcpy(simple  expr  ptr->lit   array.  kms_ptr->dki_evl_ptr.ev_ptr); 

simple  expr  ptr->set_construct_ptr  =  NULL; 

simple   expr  ptr->indexed_comp_ptr  =  NULL: 

simple  expr  ptr->funct_appln_ptr  =  NULL; 

} 
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i  set   constructor 

{    ' 
simple  expr  ptr- >  set    construct  _ptr  =  set   construct   ptr; 
simple_expr_ptr->indexed_comp_ptr  =  NULL: 
simple  expr  ptr->funct    appln   ptr  =  NULL: 
strcpy(simple  expr  ptr- > lit   array,  ""): 

} 
j  indexed _component 

{ 
simple   expr   ptr->indexed    comp   ptr  =  indexed    comp   ptr: 
simple  expr  ptr->set_construct_ptr  =  NULL: 
simple  expr  ptr->funct   appln   ptr  =  NULL: 
strcpy(simple   expr   per- >lit    arrav,  ""); 

} 
|  function_application 

{ 
simple  expr  ptr->funct   applnptr  =  funct    appln _ptr; 

simple   expr  ptr->indexed   comp   ptr  =  NULL: 

simple   expr  ptr->set    construct    ptr  =  NLLL; 

strcpy(simple   expr   ptr- >  lit   array.  ""); 


function    application: 

{ 
funct   appln   ptr  =  funct_appln_alloc(); 

} 
function    name  LP  expr  types  RP 


function   name: 
COUNT 

{ 
funct   appln   ptr->type  =  COUNT:     /*  use  token  value  */ 

} 
|  SUM 

{ 
funct_appln_ptr->type  —  SUM: 

} 
|  AVG 

{ 
funct_appln_ptr->type  —  AVG; 

} 
|  MIN 

{ 
funct_appln_ptr->type  —  MIN; 

} 
|  MAX 

{ 
funct_appln_ptr->type  =  MAX; 

} 
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expr  types  : 
IDENTIFIER 

{ 
if  ((searchentity(Sl)  !=  NULL)  ||   (search_gensub($l)  !=  NULL)) 

strcpy(funct_appln_ptr->name_id,  $1); 
else 

proceval  error(15,$l): 

} 
set_constructor 

{    ' 
funct   appln   ptr->set   construct   ptr  =  set   construct   ptr; 
funct   appln   ptr- > indexed   comp   ptr  =  NULL; 
strcpy(funct_appln   ptr->name  id,  ""); 
set   construct   ptr  =  NULL: 

} 

indexed   component 

{ 

funct    appln    ptr->indexed   comp   ptr  =  indexed   comp   ptr; 

funct_appln   ptr->set   construct   ptr  =  NULL; 

strcpy(funct    appln   ptr->name   id,  ""); 

indexed   comp   ptr  =  NULL; 
} 


indexed   component: 
dmlnameid  LP  IDENTIFIER  RP 

{ 

/*  check  for  the  innermost  IDENTIFIER  */ 
indexed   comp   ptr  =  indexed   component    alloc(); 
if  ((entptr  =  search_entity($3J)  !=  NULL) 

indexed_comp_ptr->type  =  Entity; 
else  if  ((subptr  =  search_gensub($3))  !=  NULL) 

indexed   comp_ptr->type  =  GenSub; 
else  if  ((loop~info_ptr  !=  NULL)  && 

(strcmp($3,  loop_info_ptr->loop_parameter)  ==  0)) 

{ 
indexed   comp   ptr- > type  =  LoopParameter; 

entptr  =  loop  info_ptr->entptr; 

subptr  =  loop_info_ptr->subptr; 

} 
else        /*  undeclared  entity  type,  subtype  or  loop  parameter  */ 

{ 

proc_eval_error(27,  $3); 

break; 

} 
strcpy(indexed   comp   ptr->name  id,  $3); 
strcpy(indexed_comp_ptr->parent_name,  ""); 
indexed   comp   ptr->next  =  NULL; 
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/*  check  for  each  name  in  kms  ptr->dki   temp  ptr  */ 
tempptr  =  kms_ptr->dki_temp_ptr; 
while  (temp_ptr7=  NULL) 

{ 

/*  check  if  temp   ptr->name  is  a  valid  function  */ 

new   indexed   comp   ptr  =  indexed   component   alloc(); 
new    indexed   comp  ptr- >  next  =  indexed   comp  ptr; 
indexed   compptr  =  new   indexed   compptr; 
strcpy( indexed _comp_ptr->name_id,  temp_ptr->name); 

funct   ptr  =  search   funct(indexed_comp_ptr,  entptr,  subptr); 

if  (funct   ptr  ==  NULL)         /*  invalid  function  name  */ 
proceval   error (26.  temp_ptr->name); 

else  if  (temp_ptr->next  !=  NULL) 

{ 
/*  check  if  it  is  entity  type  or  subtype  */ 

entptr  =  funct_ptr->fn   entptr; 

subptr  =  funct   ptr->fn   subptr; 

if  (entptr  !=  NULL) 

indexed   comp   ptr->type  =  Entity: 
else  if  (subptr  !=  NULL) 

indexed   comp   ptr->type  =  GenSub; 
else 

{ 

proc   eval   error(15,temp  ptr->name); 
break: 
} 
} 
temp   ptr  =  temp   ptr->next; 

} 
} 
dml   name   id  LP  indexed   component  RP 


dmlnameid  :  IDENTIFIER 

{ 

/*  stack  IDENTIFIERS  in  kms_ptr->dki_temp_ptr  */ 
temp   ptr  =  ident   list   alloc(); 
strcpy(temp   ptr->name,  $1); 
temp   ptr->next  =  kms_ptr->dki_temp_ptr; 
kms   ptr->dki   tempptr  =  temp_ptr; 

} 


include  statement: 
INCLUDE 

{ 
kms   ptr->dml  statement   ptr  =  dml   statement   alloc(); 

kms   ptr->dml_statement_ptr->type  =  Include; 

kms  ptr->dml   statement   ptr->dap  expr  ptr  =  dap  expr  info   allocQ; 

kms   ptr->dml   statement   ptr->basic   expr  ptr  =  NULL: 

dap  expr  ptr  =  kms   ptr->dml   statement   ptr->dap  expr  ptr; 
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} 

dapexpr  INTO  indexedcomponent  SEMICOLON 

{   " 
kms_ptr->dml   statement_ptr->indexed   comp  ptr  =  indexed   comp  ptr; 

} 


exclude  statement: 
EXCLUDE 

{ 

kms_ptr->dml  statement   ptr  =  dml  statement   alloc(): 
kms_ptr->dml_statement   ptr->type  =  Exclude: 

kms   ptr->dml   statement   ptr->dap   expr  ptr  =  dap  expr  info   alloc(); 
kms_ptr->dml_statement   ptr->basic   expr  ptr  =  NULL: 
dapexprptr  =  kms_ptr->dml  statement   ptr->dap  expr  ptr; 

} 
dapexpr  FROM  indexed   component  SEMICOLON 

I 
kms    ptr->dml   statement    ptr->indexed   comp   ptr  =  indexed   comp   ptr: 

} 


destroy   statement: 
DESTROY 

{ 

kms   ptr->dml  statement   ptr  =  dml  statement   allocQ; 
kms   ptr->dml   statement   ptr->type  =  Destroy; 

kms   ptr->dml   statement   ptr->dap  expr  ptr  =  dap  expr  info  allocQ; 
kms   ptr->dml   statement   ptr->indexed   comp  ptr  =  NULL; 
kms_ptr->dml_statement_ptr->basic_expr_ptr  =  NULL; 
dap   expr   ptr  =  kms   ptr->dml  statement   ptr->dap   expr   ptr: 

} 
dap  expr  SEMICOLON 


assignment   statement: 
indexed   component  ASSIGN 

{ 
kms   ptr->dml   statementptr  =  dml_statement_alloc(); 

kms   ptr->dml   statement_ptr->type  =  Assignment; 

kms   ptr->dml   statement_ptr->basic_expr_ptr  =  NULL; 

kms   ptr->dml   statement   ptr-  >  indexed   compptr  =  indexedcompptr; 

kms   ptr->dml   statement   ptr->dap_expr_ptr  =  dap_expr_info_alloc(); 

dap  expr  ptr  =  kms  ptr->dml_statement_ptr->dap_expr_ptr; 

} 
dap  expr 


move  statement: 
MOVE 
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{ 

kms   ptr->dml   statement   ptr  =  dmlstatementallocQ; 

kms   ptr->dm]   statement   ptr->type  =  Move: 

kms   ptr->dml   statement   ptr->dap_expr_ptr  =  dap_expr_info_alloc(); 

kms   ptr->dml  statement_ptr->indexed_comp_ptr  —  NULL; 

kms  ptr->dml   statement    ptr->basic   expr  ptr  =  NULL; 

dap  expr   ptr  =  kms   ptr->dml   statement   ptr->dap_expr   ptr; 

} 
dap   expr  move  statement2  SEMICOLON 


move  statement2  : 
move  from 
|  move   to 
I  move   from  move   to 


move   from: 
FROM  namel    list 


move   to: 
INTO  create   part 


procedure   call: 

{ 

kms  ptr->dml   statement    ptr  =  dml_statement_alloc(); 

kms  ptr->dml   statement   ptr->basic   exprptr  =  basic   exprptr; 

kms  ptr->dml   statement   ptr->dap_expr_ptr  =  NULL; 

kms  ptr->dml   statement   ptr->indexed_comp_ptr  =  NULL; 

} 
procedure   name  LP  basic   expr  list  RP  SEMICOLON 


procedure   name: 
PRINT  " 

{ 
kms   ptr->dml_statement_ptr->type  =  Print; 

} 
|  PRINT  LINE 

{ 
kms   ptr->dml_statement_ptr->type  =  PrintLine; 

} 


loop  statement: 

real  loop  SEMICOLON 
|  IDENTIFIER  COLON  real  loop  IDENTIFIER  SEMICOLON 
|  IDENTIFIER  COLON  real   loop  SEMICOLON 
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real   loop: 

f 

loop_info_ptr  =  loop  info   alloc(); 
kms_ptr->loop   info  ptr  =  loop  info  ptx: 

} 
iteration   clause  basic   loop  end   loop 


iteration   clause: 
iteration    bodv 

{ 
loop_info_ptr->order  comp   ptr  =  NULL: 

> 

iteration    body  BY  order  component   list 


iteration    body 
forclause  IDENTIFIER 

{ 
strcpy(loop_info_ptr->loop_parameter,  $2) 
domainptr  =  &(loop_info_ptr->domain); 

} 
IN  domain 


for   clause: 
FOR 
I  FOR  EACH 


domain: 
loopexpr 

{    " 
domain   ptr->dap  exprptr  —  NULL; 

} 
I  loopexpr  WHERE 

{ 

dap  expr  ptr  =  dap  expr_info_alloc(); 
domain   ptr->dap  expr  ptr  =  dapexprptr; 

} 
dap  expr 


loop   expr: 

indexed   component 

{ 

domain   ptr->indexed   comp  ptr  =  indexed   compptr; 
strcpy(domain   ptr->name,"M); 

} 
!  IDENTIFIER 

{ 
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/*  IDENTIFIER  must  be  entity  type  or  subtype  */ 

loopinfo   ptr->entptr  =  search_entity($l); 

loop_info  ptr->subptr  =  searchgensub(Sl); 

if  ((loop_info_ptr->entptr  !=  NULL)  ||  (loop_info_ptr->subptr  !=  NULL)) 

{ 

domain   ptr->indexed   comp  ptr  =  NULL; 
strcpy(domain_ptr->name,$l): 

} 
else 

proc   eval   error(l5,$l); 

} 


order  component   list: 
order  component 

{ 
ordercomp   ptr- >  next  =  NULL; 

loop   info   ptr->order  comp   ptr  =  order  comp   ptr; 

order  comp   ptr  =  NULL; 

} 

order  component    list  COMMA  order  component 

{ 

order  comp   ptr->next  =  loop   info   ptr->order  comp  ptr: 
loop_info_ptr->order  compptr  =  order  compptr; 
order  comp   ptr  =  NULL: 

} 


order  component: 

{   " 
order  comp   ptr  =  order  comp  list   alloc(); 

} 
sort   order  indexed   component 

{    ~ 

ordercomp  _ptr->  indexed  _comp_ptr  =  indexed_comp  ptr; 

indexed   comp   ptr  =  NULL; 
} 


sort   order: 
ASCENDING 

{ 
order  comp   ptr->sort   order  =  ASCENDING; 

} 
|  DESCENDING 

{ 
order_comp_ptr->sort_order  =  DESCENDING; 

} 
|  /*  empty  */ 

{ 
order  comp   ptr->sort   order  =  ASCENDING; 
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basic    loop: 
sequence   of  statements 
LOOP  sequence  of  statements 


sequence_of  statements: 
dml   statement2 

{    " 

dml_statement2_list_ptr  =  dml_statement2_list_alloc(); 

dmi_stacement2_Iist_ptr- >dml  statement2   ptr  =  kms   ptr->dml   statement   ptr: 
dml_statement2   list    ptr->next  =  NULL: 

loop_info_ptr->dml_statement2_list_ptr  =  dml  statement2   list    ptr: 
kms_ptr->dml  statement    ptr  =  NULL: 

} 

seauence  of  statements  dml   statement2 

{ 

dml   statement2    list    ptr  =  dml   statement2   list    alloc(); 

dml   stacement2    list    ptr-">dml   statement2   ptr  =  kms   ptr->dml   statement    ptr: 
dml   statement2    list    ptr- > next  =  loop   info   ptr->dml   statement2   list    ptr: 
loop   info   ptr->dml   statement2    list    ptr  —  dml   statement2   list    ptr: 
kms_ptr->dmi_statement_ptr  =  NULL: 

} 


end_loop: 
END 
END  LOOP 


1 
namel_list:     namel 

namel    list  COMMA  namel 


namel:        nameid 

name   id    DOT  nameid 

rel   op: 

EQ 

{ 
rel   operator  =  EQ:  /*  use  token  value  */ 

} 
NE 

{ 
rel   operator  =  NE: 

} 
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|  LT 

{ 

rel 

operator  = 

LT; 

} 

!  LE 

{ 

rel 

operator  = 

LE; 

} 

|  GT 

{ 

rel 

operator  = 

GT; 

} 

|  GE 

{ 

rel 

operator  = 

GE: 

} 

5 

in    op: 

IN 

{ 

in 

op  =  INOp: 

} 

1  NOT  IN 

{ 

in 

op  =  NINOp; 

} 

dap  range: 
INTEGER  LITERAL  ELIPSES  INTEGER   LITERAL 

{ 

dap  range   ptr->range   type  =  Integer: 
strcpy(dap _range_ptr-> first   value,  $1); 
strcpv(dap  range  ptr->second   value,  $3); 

} 
|  FLOATLITERAL  ELIPSES  FLOATLITERAL 

{ 

dap_range_ptr->range_type  =  Float; 

strcpy(dap_range  ptr->first  value,  $1); 

strcpy(dap_range   ptr->second   value,  $3); 
} 


%% 


f  kernel   mappingsystem  () 

'{ 

reset   variablesQ; 


170 


/*  alloc  and  init  dap   kms   info  struct  */ 
kmsptr  =  dapkms   info  alloc(); 
kms   ptr->dki   temp   ptr  =  NULL; 
kms_ptr->dki_id   ptr  =  NLTLL: 
kms_ptr->dki_overfirst   ptr  =  NULL; 
kms_ptr->dki_ev_ptr  =  NULL; 
kms  ptr->dki   create  =  NULL: 
kms_ptr->dki  req  ptr  =  NULL; 
kms_ptr->dki_cel_ptr  =  NULL; 
kms_ptr->dki_create  ovrptr  =  NULL: 
if   (cuser_dap_ptr->ui_li_type.li   dap. dap  operation  !=  CreateDB) 

{ 

cuser_dap_ptr->ui   li   type.li   dap. dpi  kms  data.ki   d   kms  =  kms   ptr: 

dml  req   len  =  cuser  dap  ptr->ui   li  type.li  dap. dpi   dml   tran. 

ti_curr_req.ri_dap_req->dri_req_len; 

/* 

dml   info   ptr  =  irfcuser  dap   ptr->ui   li   type.li  dap); 

strcpv(db.dml   info   ptr->dpi   curr  db.cdi   dbname); 

} 

mem   ptr  =  cuser  dap   ptr->ui   li   type.li   dap. dpi   dml   tran. 

ti   curr   req.ri   dap   req->dri   req: 
#ifdef  DYacFlag 

printf  ("calling  yyparse  \n"): 
#endif 

yyparse(): 

#ifdef  DYacFlag 

printf  ("returning  from  yyparse  \n"); 
#endif 

/*  reset  all  boolean  and  counter  variables  */ 

kms  info  cleanup(); 
#ifdef  DYacFlag 

printf  ("Exit  parser  \n"); 
#endif 

} 

yyerror  (s) 
char    *s; 

{ 

if   (cuser  dap   ptr->ui   li   type.li   dap.dapoperation  ==  CreateDB) 

{ 

cuser  dap   ptr->ui   li   type.lidap.daperror  =  ErrCreateDB; 

printf  ("Correct  error  before  re-submitting  that  DB  Description  file  \n"); 

/*  free  all  the  malloc'd  variables  in  the  current  schema  */ 

schema_cleanup() ; 

} 

else 
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{ 

cuser  dap  ptr->ui   li   type.li   dap  dap  error  =  ErrReqTran; 
kms   info_cleanup(); 

} 

/*  reset  all  boolean  and  counter  variables    / 

reset_variables(); 

print?  ("\n%s  \n",  s); 

} 


schema  cleanup() 


kms   info  cleanup() 

reset    variables() 

last   funct   ptr  =  NULL: 

FILE  kms.c 


^include  <stdio.h> 
#include  <strings.h> 
#include  "flags.def 
^include  "licommdata.der1 
^include  "struct. def' 
^include  "dap.ext" 
^include  "kms.ext" 


proc   eval  error(num,str   in) 
int     num; 
char  *str_in; 

{ 
switch  (num) 

{ 
case    1:  printf("Error  -  duplicate  constant  name:"); 

break; 
case    2:  printf("Error  -  duplicate  non   entity  type  name:"); 

break; 
case    3:  printf("Error  -  duplicate  entity  type  name:"); 
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case  4: 
case  5: 
case  6: 
case  7: 
case  8: 
case  9: 
case  10: 
case  11: 
case  12: 
case  13: 
case  14: 
case  15: 
case  16: 
case  17: 
case  18: 
case  19: 
case  20: 
case  21: 
case  22: 
case  23: 
case  24: 
case  25: 
case  26: 
case  27: 
default: 


break 
printf(' 

break 
printf( 

break; 
printf(' 

break; 
printf( 

break; 
printf( 

break 
printf(' 

break: 
printf( 

break: 
printf( 

break: 
printff 

break: 
printff 

break: 
pnntff 

break; 
printf( 

break: 
printf( 

break; 
printff 

break; 
printf( 

break; 
printf( 

break; 
printf( 

break; 
printf( 

break: 
printf( 

break; 
printf( 

break: 
printf( 

break; 
printf( 

break; 
printf( 

break; 
printf( 

break; 
printf( 

break; 


'Error  -  cannot  create  new  type.  Base  type  undefined:"); 

'Error  -  attribute  name  must  be  unique:"); 

'Error  -  undeclared  function  identifier:"); 

'Error  -  nonentity  subtype  name  must  be  unique:"); 

'Error  -  incompatible  types  must  be  nonentity  type:"); 

'Error  -  entity  type  must  have  been  declared  previously:"); 

"Error  -  undeclared  subtype  name:"); 

"Error  -  incompatible  types  must  be  entity  type:"); 

"Error  -  duplicate  entity  subtype  name:"); 

"Error  -  duplicate  identifier  in  list:"); 

"Error  -  overlap  type  must  be  terminal  subtype:"): 

"Error  -  undefined  entity  type  or  subtype:"): 

"Error  -  incompatible  derived  type  declaration:"): 

"Error  -  incompatible  subtype  declaration:"); 

"Error  -  incompatible  assignment:"); 

"Error  -  identifier  must  be  previously  declared:"); 

"Error  -  overlap  types  must  have  same  base  type:"); 

"Error  -  non-terminal  type  entity  in  create:"); 

"Error  -  more  than  one  entity  type  name  in  create:"); 

"Error  -  no  default  value  for  enumeration  type  attribute:"); 

"Error  -  value  must  be  declared  for  entity  type  attribute:"); 

"Error  -  overlap  constraint  not  declared:"); 

"Error  -  invalid  function  name:"); 

"Error  -  undefined  entity  type,  subtype  or  loop  parameter:"); 

"Error  -  error  code:  %d:",  num); 
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}       /*  end  switch  */ 
printf("  %s\n",  strin); 

} 

put   dki_ent_non(enn_type,  strval) 

char     enn   type; 
char     *str  val; 


{ 


} 


struct  ent_value  *ent_value_alloc(); 

char    *var  str  alloc(); 

kms_ptr->dki_ent_non.enn_type  =  enn_type: 
switch  (enn   type) 

{ 
case  T  :  kms   ptr->dki   ent    non.enn   total   length  =  FLTLength; 

break: 
case  'b'  : 
case  T  :  kms    ptr->dki   ent    non.enn    total   length  =  INTLength; 

break: 
default    :  : 

} 

kms   ptr->dki  ent    non.enn   range  =  FALSE: 
kms   ptr->dki   ent   non.enn_num_values  =  1: 
kms   ptr->dki  ent    non.enn   constant  =  TRUE: 
kms   ptr->dki   ent   non.enn   value  =  ent_value_alloc(); 
kms   ptr->dki   ent   non.enn   value->ev   value  = 

var  str   alloc(  strlen(str  val)  +  1  ); 
strcpy(kms   ptr->dki   ent   non.enn   value->ev   value,  str_val); 
kms   ptr->dki  ent   non.enn   value->next  =  NULL; 


put   dki_funct(fn_type) 
char     fn_type; 

{ 

kms   ptr->dki  funct.fn   type  =  fn   type; 
switch  (fntype) 

{ 
case  T  :  kms   ptr->dki  funct.fn   total  length  =  FLTLength; 

break; 
case  'b'  : 
case  'i'  :  kms_ptr->dki_funct.fn_total_length  =  INTLength; 

break; 
default    :  kms   ptr->dki  funct.fn   total   length  =  0; 

break; 

} 
kms  ptr->dki  funct.fn   range  =  FALSE; 
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kms_ptr->dki_funct.fn_set  =  FALSE; 
kms_ptr->dki_funet.fn   num   value  =  0; 
kms_ptr->dki  funct.fn   value  =  NULL; 
kms_ptr->dki  funct.fn   entptr  =  NULL; 
kms_ptr->dki_funct.fn_subptr  =  NULL; 
kms_ptr->dki_funct.fn_nonentptr  =  NULL; 
kms_ptr->dki_funct.fn_nonsubptr  =  NULL: 
kms_ptr->dki_funct.fn_nonderptr  =  NULL; 
kms_ptr->dki  funct.next  —  NULL; 
kms_ptr->dki_funct.fn_entnull  =  FALSE; 
kms   ptr->dki  funct.fn   unique  =  FALSE: 


add_ent_non_node(enn   name) 
char     ennnamejENLength  +  lj; 

{ 

struct  fun   dbid   node  *db  ptr; 
struct  ent    non   node     *ent   non   node   alloc(), 
*enn   ptr: 

dbptr  =  cuser_dap_ptr->ui  li   type.li   dap. dpi   curr  db.cdi  db.dn   fun; 
enn   ptr  =  ent   non   node   alloc(): 
strcpy(enn_ptr->enn   name,  enn   name): 
enn_ptr->enn   type  =  kms  ptr->dki   ent   non. enn   type; 
enn_ptr->enn_total_length  =  kms_ptr->dki   ent_non.enn   total  length; 
enn_ptr->enn_range  —  kms_ptr->dki  entnon.enn   range; 
enn_ptr->enn_num_values  =  kms_ptr->dki   entnon.enn   num  values: 
enn_ptr->enn_value  =  kms  ptr->dki  ent   non.ennvalue; 
kms_ptr->dki_ent_non.enn_value  =  NULL; 

enn_ptr->enn_constant  =  kms_ptr->dki  ent    non.enn_constant: 
enn_ptr->enn_next_node  =  db  ptr->fdn   nonentptr; 
db_ptr->fdn_nonentptr  =  enn   ptr; 
db   ptr->fdn   num   nonent+  +  ; 


} 


struct  gen   sub  node  *new   gen_sub_node(temp_value) 
char  temp  valuejENLength  +  l]; 

{ 

struct  fun   dbid    node    *db   ptr; 
struct  gen   sub  node      *gen  sub   node_alloc(), 
*gen   ptr; 

db   ptr  =  cuser  dap  ptr->ui_li_type.li   dap. dpi  curr  db.cdi  db.dn   fun; 
gen   ptr  =  gen   sub  node_alloc(); 
strcpy(gen   ptr->gsn   name,  tempvalue); 
gen    ptr->gsn   num   funct  =  0; 
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gen   ptr->gsn   terminal  =  TRUE; 
gen   ptr->gsn   entptr  =  NULL; 
gen   ptr->gsn_num_ent  =  0; 
gen   ptr->gsn_ftnptr  =  NULL; 
gen   ptr->gsn_subptr  =  NULL; 
gen   ptr->gsn   num   sub  =  0; 

gen   ptr->gsn   nextgenptr  =  db_ptr->fdn_subptr; 
db  ptr->fdn   subptr  =  gen   ptr; 
db  ptr->fdn_num_gen-r-  +  ; 
return(gen_ptr); 


compare   non   node_type(temp_value,  serror) 

char  temp_value[ENLength  +  1]; 
int    serror; 

{ 

struct  fun   dbid   node  *db   ptr: 

struct  ent   non   node  *enn_ptr; 

struct  sub   non   node  *snn    ptr: 

struct  der  non   node  *dnn_ptr: 

int  in; 

db   ptr  =  cuser  dap   ptr->ui   li  type.li   dap. dpi   curr   db.cdidb.dnfun; 
enn   ptr  =  db   ptr->fdn   nonentptr; 
snn   ptr  =  db   ptr->fdn_nonsubptr; 
dnn   ptr  =  db  ptr->fdn   nonderptr; 

in  =  FALSE; 

while  ((ennptr  !  =  NULL)  kk  (!in)) 

{ 
if  (strcmp(enn   ptr->enn_name,  tempvalue)  ==  FALSE) 

{ 

in  =  TRUE; 

if  (enn   ptr->enn   type  !=  kms_ptr->dki_ent_non.enn_type) 
proc   eval   error(serror,temp  value); 

} 
else 

enn   ptr  =  enn   ptr->enn   next   node; 

} 

while  ((snnptr  !=  NULL)  kk  (!in)) 

{ 
if  (strcmp(snn   ptr->snn   name,  temp  value)  ==  FALSE) 

{ 

in  -  TRUE; 

if  (snn   ptr->snn   type  !=  kms  ptr->dki_ent_non.enn_type) 
proc   eval  error(serror,temp_value); 
} 
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else 

snn_ptr  =  snn_ptr->snn_next   node: 
} 

while  ((dnn_ptr  !=  NULL)  4:4:  (!in)) 

{ 

if  (strcrnp(dnn_ptr->dnn_name.  temp   value!  ==  FALSE) 

{ 

in  =  TRUE: 

if  (dnn_ptr->dnn_type  \—  kms_ptr->dki  ent    non.enn   type) 
proc_eval_erroriserror.temp   value): 

} 

eise 

dnnptr  =  dnn_ptr->dnn    next    node: 
} 

if  (!in) 

Droc   eval   error! serror. temp  value): 
} 

add_range   non   node!  enn   type.  strl.  str2) 

char     enn   type: 
char     "strl.  *5tr2: 

{ 

struct  ent   value  'ent   value   allocQ. 

xentval   ptr. 
char    *var  str   alloc(): 

*  update  kms_info  * 

kms   ptr->dki  ent   non.enn    type  =  enn   type: 
switch  (enn_tvpel 

{ 
case  T  :  kms  ptr->dki  ent    non.enn   total   length  =  FLTLength: 

break: 
case  T  :  kms  ptr->dki   ent    non.enn    total   length  =  INTLength: 

break: 

} 

kms  ptr->dki  ent  non.enn   range  =  TRLE: 

kms  ptr->dki   ent  non.enn   num_values  =  2: 

kms  ptr->dki  ent  non.enn_constant  =  FALSE: 

/*  create  value  node  for  first  integer 

kms  ptr->dki   ent   non.enn   value  =  ent   value   alloc(); 
kms  ptr->dki  ent_non.enn_value->ev_value  = 

var  str   alloc)  strlen(strl)  —  1): 
strcpy(kms  ptr->dki  ent   non.enn_value->ev_value.  strl): 

1  create  value  node  for  second  integer 
entval   ptr  =  ent    value   alloc(): 
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entval   ptr->ev   value  =  var  str   allocf  strlen(str2)  +  1] 
strcpy(entval  ptr->ev  value.  str2); 
entval_ptr->next  =  NULL: 
kms_ptr->dki_ent_non.enn_value->next  =  entvalptr; 

} 


free_id_list() 

{ 
struct  ident   list    *ident_ptr. 

""next    ident    ptr: 

ident   ptr  =  kms   ptr->dki   id   ptr: 
while  (identptr  !=  NULL  ) 

{ 

next    ident   ptr  =  ident   ptr->next: 

free(identptr): 

ident    ptr  =  next    ident    ptr: 

} 
kms   ptr->dki   id    ptr  =  NULL: 

} 

free   temp   list ( ) 

{ 
struct  ident   list    *ident_ptr, 

*next_ident_ptr; 

identptr  =  kms_ptr->dki_temp_ptr; 
while  (identptr  !=  NULL  ) 

{ 

nextident   ptr  =  ident   ptr->next; 

free  (ident   ptr); 

identptr  =  next   ident i  ptr; 

} 
kms   ptr->dki  temp  ptr  =  NULL; 

} 

free   namel    list () 

{ 
struct  identlist    *ident_ptr, 

*next_ident   ptr; 

identptr  =  kms_ptr->dki_namel    ptr; 
while  (identptr  !=  NULL  ) 

{ 

nextidentptr  =  ident   ptr->next; 

free(ident   ptr); 

ident   ptr  =  next   ident   ptr; 
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} 

kms_ptr->dki   namel    ptr  —  NULL; 


find_base_type(genptr.  base  name) 

struct  gen_sub_node         *genptr: 
char     *base   name: 

{ 
if  (genptr->gsn   subptr  !=  NULL) 

find_base_type(genptr->gsn   subptr- >subptr,  base   name): 
else  if  (genptr->gsn_entptr  !=  NULL) 

strcpy(base_name,  genptr->gsn_entptr->entptr->en    name); 
else 

strcpyfbasejname,  genptr->gsn   name): 
} 


3.     FILE  :  dml.c 


^include  <stdio.h> 
*include  <strings.h> 
^include  <ctype.h> 
^include  "flags. def" 
^include  "licommdata.def" 
^include  "struct. def 
^include  "dap.ext" 
^include  "kms.ext" 


proc_create_ent_type(entptr) 
struct  ent   node        *entptr; 

{ 
struct  dap  create   list     *dap_create_list_alloc(); 
struct  dap   av    pair   list    *build_funct_av_pair(), 

*build_key_av_pair(), 

*av   ptr; 
struct  identlist  *temp_ptr; 

int      in; 

#ifdef  EnExFlag 

printf( "Enter  proc_create_ent_type\nM); 
£endif 

/*  Check  if  first  name   id  is  entity  type  */ 
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temp   ptr  =  kms_ptr->dki_temp_ptr: 

in  =  FALSE; 

while  ((entptr  !=  NULL)  &&  (!in)) 

{ 
if  (strcmp(entptr->en   name,  temp   ptr->name)  ==  FALSE) 

in  -  TRUE; 
else 

entptr  =  entptr->en_next_ent; 

} 

if  (in) 

{ 

if  (entptr->en   terminal  ==  FALSE) 
/*  must  be  terminal  type  for  create  */ 
proc   eval   error(21,temp_ptr->name); 

else  if  (temp_ptr->next  !=  NULL) 

/*  not  more  than  one  name  in  list  when  creating  entity  type  *, 
proc   eval   error(22.temp   ptr->name); 

create   ent    list 

{ 

free   dki_create(); 

kms   ptr->dki   create  —  dap  create   list   allocQ; 

kms   ptr->dki   create- >req   type  =  Insert; 

strcpy(kms   ptr->dki   create->en    name.  entptr->en_name); 

av   ptr  =  build    key   av   pair(entptr): 

av   ptr->next  =  build_funct_av_pair(entptr->en_ftnptr); 

kms   ptr->dki   create- >av   pairptr  =  av   ptr; 

kms   ptr->dki   create->next  =    NULL; 
} 

} 
#ifdef  EnExFlag 

printf("Exit  proc   create  ent_type\n"); 

#endif 

return  (in); 

}     /*  end  proc   create  ent    type  */ 

proc   create  sub   type(genptr) 

struct  gen_sub_node     *genptr; 

{ 

int      in; 

struct  fun   dbid   node        *db  ptr; 

struct  overlap   node  *ovrptr; 
struct  gen   sub   node         *subptr; 

struct  sub  node  list  *snlptr; 

struct  create  ent   list  *cel   ptr, 

*create   ent   list    alloc(): 

struct  sub  node  list  *sub  node   list   alloc(); 
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struct  ident   list  *temp  ptr; 

#ifdef  EnExFlag 

printf( "Enter  proc_create  sub  type\n"); 
=£endif 

free_dki_create(); 
kms_ptr->dki_cel   ptr  =  NULL; 

'*  ensure  multiple  name  ids  are  overlap  sub  node  type  */ 

skip  if  there  is  only  one  name  id  in  the  list         */ 
temp   ptr  =  kms   ptr->dki   temp   ptr; 
if  (temp_ptr->next  !=  NULL) 

{ 

dbptr  =  cuser_dap_ptr->ui_li_type.li_dap.dpi   curr  db.cdi  db.dn   fun: 
ovrptr  =  db_ptr->fdn   ovrptr; 
in  =  FALSE? 
while  (ovrptr  !=  NULL  &&  (!in)) 

{ 

snlptr  =  ovrptr- >snlptr: 
while  (snlptr  !=  NULL  &&  (!in)) 

{ 
if  (strcmp(snlptr->subptr->gsn   name,  temp   ptr->name)  ==  0) 

{ 

in  =  TRUE: 
kms_ptr->dki  create  ovrptr  =  ovrptr; 

} 
else 

snlptr  =  snlptr->next: 

} 

ovrptr  =  ovrptr- >  next; 

} 
if  (!in)     /*  overlap  constraint  not  declared  */ 

proc   eval  error(25,temp  ptr->name); 
else 

{ 

/*  check  the  all  remaining  name   ids  */ 
temp   ptr  =  temp  ptr  ->  next; 
while  (tempptr  !=  NULL) 

{ 
snlptr  =  kms  ptr->dki  create_ovrptr->snlptr; 

in  =  FALSE;" 

while  (snlptr  !=  NULL  &&  (!in)) 

{ 
if  (strcmp(temp   ptr->name,  snlptr->subptr->gsn   name)  ==  0) 

in  =  TRUE;  ~ 
else 

snlptr  —  snlptr->next; 

} 
if  (!in)     /*  overlap  constraint  not  declared  */ 
proc   eval  error(25,temp   ptr->name); 
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temp   ptr  =  temp   ptr->next: 
} 
} 
} 
temp  ptr  =  kms   ptr->dki   tempptr; 

while  (temp_ptr  !=  NULL) 

{ 

subptr  =  genptr;     /*  rewind  subptr  */ 

in  =  FALSE; 

while  ((subptr  !=  NULL)  &&  (!in)) 

{ 
if  (strcmp(subptr->gsn    name.  temp_ptr->name)  ==  FALSE) 

in  =  TRUE: 

else 

subptr  =  subptr- >gsn_next   genptr: 

} 

if  (!in) 

/*  undeclared  entity  type  or  subtype 
proc   eval   error(15.temp   ptr->name): 

else  if  (subptr->gsn    terminal  ==  FALSE) 
/*  must  be  terminal  type  for  create  */ 
proc   eval   error(21.temp   ptr->name); 

else 

{ 

eel  ptr  =  create  ent   list   allocQ; 

cel_ptr->enl_ptr  =  NULL; 

eel   ptr->snl   ptr  =  sub   node  list   alloc(); 

eel  ptr->snl   ptr->subptr  =  subptr; 

eel  ptr->snl  ptr->next  =  NULL; 

eel   ptr->next  —  kms   ptr->dki  eel   ptr; 

kms_ptr->dki  eel   ptr  =  celptr; 
} 

temp   ptr  =  temp   ptr->next; 
}    /*  end  while  tempptr  */ 

build   createlistQ; 

#ifdef  EnExFlag 

printf("Exit  proc   create  sub  type\n"); 
#endif 

}     /*  end  proc_create_sub_type  */ 

build_create_list() 

{ 

struct  sub   node   list        *snl   ptr; 
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struct  entnode  list        *enl   ptr: 

struct  entnode  *overlap  entptr; 

struct  gensubnode         *  overlap  subptr; 

struct  createent   list     *cel   ptr. 

*  new   eel   ptr. 
*temp  eel   ptr, 
*create_ent   list   alloc (); 

#ifdef  EnExFlag 

printf("Enter  build   create   list\n"); 
#endif 


newcelptr  =  NULL: 
overlapentptr  =  NULL; 
overlap  subptr  =  NULL; 
celptr  =  kms  ptr->dki  eel  ptr: 
while  (eel  ptr  T=  NULL)" 

{ 

snl  ptr  =  eel  ptr->snl  ptr: 
enl_ptr  =  cel_ptr->enl  ptr: 
while  (snl  ptr" !=  NULL) 

{ 

*  skip  if  it  is  the  overlapping  base  type     */ 
/*  it  will  be  added  last  to  avoid  duplicates  *; 
if  (strcmp(snl   ptr->subptr->gsn    name. 

kms_ptr->dki_create_ovrptr->base  typename)  ==  0) 
overlapsubptr  =  snl_ptr->  subptr; 
else 

{ 

build   sub  create   list(snl   ptr->subptr); 
if  ((snl_ptr->subptr->gsn   entptr  !=  NULL)  || 
(snl_ptr->subptr->gsn   subptr  !=  NULL)) 

{ 

temp  eel   ptr  =  create  ent_list   alloc(); 
temp  eel  ptr->enl   ptr  =  snl   ptr- > subptr- >gsn   entptr; 
temp  eel   ptr->snl_ptr  =  snl  ptr->subptr->gsn_subptr; 
temp  eel   ptr- > next  =  new   eel  ptr; 
new   eel  ptr  =  temp  eel   ptr; 
} 
} 
snl   ptr  =  snl  ptr->next; 
}    /*  end  while  snl_ptr  */ 

while  (enlptr  !=  NULL) 

{ 

/*  skip  if  it  is  the  overlapping  base  type     */ 

/*  it  will  be  added  last  to  avoid  duplicates  */ 
if  (strcmp(enl  ptr->entptr->en_name, 

kms  ptr->dki  create_ovrptr->base_type_name)  ==  0) 
overlap  entptr  =  enl  ptr->entptr; 
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else 

build   ent   create   listfenl   ptr->entptr); 
enl   ptr  =  enl   ptr->next; 
}    /*  end  while  enl   ptr  */ 

eel   ptr  =  cel_ptr->next: 
}    /*  end  while  eel   ptr  */ 

free_dki_cel_ptr(); 

/*  recursively  call  build   create   list ( )  when  there  is  more  supertypes  */ 

if  (new_cel_ptr  !=  NULL) 

{ 

kms   ptr->dki   eel   ptr  =  new   eel   ptr; 

build   create   list(); 

} 
else 

{ 

/*  Now,  build  the  overlap  base  entity  */ 
if  (overlap  entptr  !=  NL'LL) 

build   ent   create   list(overlap   entptr); 
else  if  (overlapsubptr  !=  NULL) 

build   sub  create   list(overlap  subptr); 
} 


#ifdef  EnExFlag 

printf("Exit  build  _create_list\n"); 
#endif 

}     /*  end  build   create  list  */ 

build   entcreatelist(entptr) 

struct  entnode  *entptr; 

{ 
struct  dapcreatelist     *dap_create   list_alloc(), 

*dcl   ptr; 
struct  dap   av   pair  list    *build   funct   av   pair(), 

*  build   key   av   pair(), 

*av_ptr; 

#ifdef  EnExFlag 

printf("Enter  build   ent   create   list\n"); 
#endif 

dclptr  =  dapcreatelist   alloc(); 

dcl_ptr->req   type  =  Insert; 

strcpy(dcl   ptr->en   name,  entptr->en   name); 

avptr  =  build_key_av_pair(entptr); 

av_ptr->next  =  build   funct   av   pair(entptr->en_ftnptr); 

del   ptr->av   pair  ptr  =  av   ptr; 
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dcl_ptr->next  =  kms   ptr->dki   create: 
kms_ptr->dki_create  =  del   ptr: 

«ifdef  EnExFlag 

printf("Exit  build   ent   create   listen"); 
*endif 
} 

build   subcreate   list(subptr) 
struct  gen   sub   node         *subptr: 

{ 

struct  dap_create  list     *dap  create   list   alloc(), 

*dcF_ptr; 
struct  dap   av    pair   list    *  build   funct    av    pair(). 

*  build   sub   key    av    pair(). 

*last   av   ptr. 

*av    ptr: 

=ifdef  EnExFlag 

printf( "Enter  build    sub   create   list   n"); 
=rendif 

del   ptr  =  dap  create   list   alloc(): 
del    ptr->req   type  =  Insert: 
strcpy(dcl   ptr->en   name,  subptr->gsn   name); 
av   ptr  =  build   sub   key   av   pair(subptr); 
last  _av   ptr  =  av_ptr: 
while  (last    av _ptr->next  !=  NULL) 
last    av    ptr  =  last    av    ptr- > next; 
last    av   ptr->next  = 

build   funct _av   pair(subptr->gsn_ftnptr); 
del   ptr->av   pair  ptr  =  avptr: 
del   ptr->next  =  kms_ptr->dki_create; 
kms_ptr->dki_create  =  dclptr: 

#ifdef  EnExFlag 

printf("Exit  build _sub_create_list\n"); 
^endif 
} 

struct  dap   av   pairlist    *build_key_av   pair(entptr) 
struct  ent    node        *entptr: 

{ 
struct  dap   av   pair  list    *dap   avpairlist   alloc  (), 

*av_ptr; 

struct  ent   value  *ent   value   alloc(): 

char     *var   str   alloc(): 
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av_ptr  =  dapav   pair   list   alloc(): 

strcpy(av   ptr->name,  entptr->en   name); 

av_ptr->ftnptr  =  NULL: 

av   ptr->num_value  =  1: 

av    ptr->valptr  =  ent   value   alloc(): 

av_ptr->valptr->ev_yalue  =  var  str   alloc(INTLength): 

num   to  str(entptr->en_last   ent   id  -+■  1.  av   ptr->valptr->ev  value); 

av   ptr->valptr->next  =  NULL; 

av  _ptr->next  =  NULL; 

return(av_ptr); 
} 

struct  dapavpairlist    *build   sub   key   av   pair(subptr) 
struct  gen   sub   node    *subptr; 

{ 

struct  dap   av    pair   list    *dap   av    pair   list    alloc(), 

'new   av    ptr, 

*last   av   ptr, 

*av    ptr; 
struct  ent   value  *ent   value   alloc(); 

struct  ent   node   list        *enl   ptr; 
struct  sub   node   list        *snl   ptr; 

#ifdef  EnExFlag 

printf("Enter  build   sub   key    av   pair\n"); 
#endif 

avptr  =  NULL; 

enl_ptr  =  subptr->gsn   entptr; 

snl_ptr  =  subptr->gsn   subptr: 

while  (enlptr  !=  NULL) 

{ 

newavptr  =  build_key   av   pair(enl   ptr->entptr); 

last_av_ptr  =  new   av   ptr; 

while  (last_av_ptr->next  !=  NULL) 
lastav   ptr  =  last   av   ptr->next; 

last   av   ptr- >  next  =  av   ptr; 

av   ptr  =  new    av   ptr; 

enlptr  =  enl_ptr->next; 
} 

while  (snlptr  !=  NULL) 

{ 

new   avptr  =  build   sub   key   av   pair(snl   ptr->subptr); 
last   av   ptr  =  new   av   ptr; 
while  ( last _av_ptr-> next  !=  NULL) 
last   av   ptr  =  last    av   ptr->next; 
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lastav   ptr->next  =  av   ptr; 
avptr  =  new    av   ptr; 
snlptr  =  si   _ptr->next; 
} 

#ifdef  EnExFlag 

printf("Exit  build   sub   key   av    pair\nM); 
#endif 

return  (av_ptr); 
} 

struct  dap_av_pair  list  *build   funct   av   pair(ftnptr) 
struct  functionnode     *ftnptr: 

{ 
struct  dapavpairlist  *dap   av    pair   list    alloc(). 

*av    ptr. 
*last   av   ptr: 

last   av   ptr  =  NULL; 
while  (ftnptr  !=    NULL) 

{ 

av   ptr  =  dap   av   pair  list   alloc(): 

strcpy(av   ptr->name.  ftnptr->fn   name); 

av_ptr->ftnptr  =  ftnptr; 

av   ptr->num_value  =  0; 

av_ptr->valptr  =  NULL; 

av   ptr- >  next  =  last   av   ptr; 

lastav   ptr  =  av   ptr: 

ftnptr  =  ftnptr- >next; 
}    /*end  while  ftnptr  */ 

return  (av   ptr); 
}    /*  end  build_funct_av_pair  */ 

build  _req_line_list() 

{ 

struct  dap   create   list    *dcl   ptr; 

struct  reqlinelist      *req_ptr, 

*r_ptr, 

*last_req_ptr, 
*append   attr_value(), 
*req   line_list_alloc(); 

struct  dap   avpairlist  *av   ptr; 

int      en   len;  /*  length  of  enname  */ 

int      i;  /*  index  */ 

free_dki_req_ptr(); 

del   ptr  =  kms_ptr->dki_create; 
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while  (dcl_ptr  !=  NULL) 

{ 

if  (kms_ptr->dki_req_ptr  ==  NULL) 

{ 

req   ptr  =  req_line_list   alloc(); 
kms  ptr->dki_req   ptr  =  req   ptr; 

} 
else 

{ 
last   req   ptr- > next  =  req    line   list    alloc(): 

req   ptr  =  last _req   ptr- > next; 

} 
last   req   ptr  =  req   ptr; 
if  (del   ptr->req_type  ——  Insert) 

strcpy(req_ptr^>req_line,  "INSERT(<FILE."); 
else 

strcpy(req_ptr->req_line.  "RETRIEVE(<FILE,"): 
en   len  =  strlen(dcl   ptr->en   name); 
for  (i  =  1:  i  <  en    len:  i++) 

del   ptr->en   name  i'  =  tolower(dcl   ptr->en   namefij); 
strcat(req    ptr->req   line. del    ptr->en   name): 
av   ptr  =  del   ptr-  >av    pair   ptr; 
while  (avptr  !=  NULL) 

{ 

r   ptr  =  req   ptr; 
while  (r_ptr~!=  NULL) 

{ 
strcat(r  ptr->req   line, ">.<"); 
strcat(r  ptr->req   line,av   ptr->name); 
strcat(r_ptr->req   line,","); 
r  ptr  =  r   ptr->next; 

}    ~ 
if  (av_ptr->num   value  >  0) 

last   req   ptr  —    append    attr   value(req   ptr.av    ptr->valptr); 

else  if  (av _ptr->ftnptr->fn   num   value  >  0) 
/*  use  default  value  */ 
last   req   ptr  = 

append   attr  value(req   ptr,av   ptr->ftnptr->fn   value) 
else 

{ 
rptr  =  reqptr; 
while  (r_ptr_!=  NULL) 

{ 
/*  provide  system  default  value  */ 
switch  (getbase  fun   type(av   ptr->ftnptr)) 

{ 
case  'i':  strcat(r_ptr->req_line,"0"); 

break; 
case  T:  strcat(r  ptr->req   line, "0.0"); 

break; 
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} 
} 


case  Y:  strcat(r  ptr->req   line,"*****"): 

break; 
case  V:  proc_eval_error(23,av   ptr->name): 

break; 
case  'E':  if  (av_ptr->ftnptr->fn_entnull) 

strcat(r_ptr->req   line,"0"); 
else 

proc_eval_error(24,av_ptr->name) 
break; 

} 
r_ptr  =  r_ptr->next: 

} 
} 
av   ptr  =  av   ptr->next; 

} 
rptr  =  reqptr; 
while  (r_ptr~!  =  NULL) 

{ 
strcat(r_ptr->req   line. ">)"): 
r_ptr  =  r   ptr->next; 

}    ~ 
del   ptr  =  del   ptr->next: 


free  dki   createQ 

{   ~ 
struct  dap_create_list*dcl  ptr, 

*next_dcl_ptr; 

dclptr  =  kms   ptr->dki  create; 
while  (dcl_ptr  7=  NULL)" 

{ 

next   del   ptr  =  del  ptr->next; 
free(dclptr); 
del   ptr  =  next   del  ptr; 

} 

kms  ptr->dki  create  =  NULL; 

} 


free_dki_req_ptr() 

{ 

struct  reqlinelist     *req_ptr, 

*  next  _req   ptr; 

reqptr  =  kms_ptr->dki_req_ptr; 
while  (req_ptr7=  NULL) 
( 
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next   req   ptr  =  req   ptr- > next: 

free  (req   ptr); 

req  ptr  =  next   req  ptr; 

} 
kms_ptr->dki_req_ptr  =  NULL; 

} 


free  dki   eel   ptr() 

{ 
struct  createentlist  *cel_ptr, 

*next   eel   ptr; 

cel_ptr  =  kms_ptr->dki_cel   ptr; 
while  (cel_ptr7=  NULL)" 

{ 

nextcel   ptr  =  eel   ptr->next: 
free(cel   ptr): 
cel_ptr  =  next   eel   ptr; 

} 
kms_ptr->dki_cel_ptr  =  NULL: 

} 
struct  req   line   list  *append   attr  valuefthe   req   ptr,  the  val  ptr) 

struct  req   linehst  *the  req   ptr; 

struct  ent   value  *the  val  ptr; 

{ 

struct  req   line   list       *req   ptr, 

*next   req   ptr, 

*last   req   ptr, 

*req  line   list   alloc(); 

struct  ent  value  *val  ptr; 

#ifdef  EnExFlag 

printf( "Enter  append _attr_value\n"); 
#endif 

/*  duplicates  current  req   line  for  multiple  values  */ 
req   ptr  =  the  req   ptr; 
while  (reqptr  !=  NULL) 

{ 

nextreq   ptr  =  req   ptr->next; 
val   ptr  =  the  val   ptr; 
while  ( val   ptr- > next  !=  NULL) 

{ 

req   ptr- > next  =  req   line_list   alloc (); 
strcpy(req_ptr->next->req   line,  req   ptr->req   line); 
req   ptr  =  req   ptr- > next; 
val   ptr  =  val   ptr->next; 
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}    /*  end  while  * 
req   ptr- >  next  =  next   req   ptr; 
req_ptr  =  next   req   ptr; 
} 

req   ptr  =  thereqptr; 
while  (req_ptr  !=  NULL) 

{ 

valptr  =  the  val  ptr: 
while  (valptr  !=  NULL) 

{ 

strcat(req_ptr->req    line,  val   ptr->ev   value); 

last   req   ptr  =  req  ptr: 

reqptr  =  req_ptr->next: 

val   ptr  =  val  ptr- > next; 
}    I*  end  while"*/ 
} 

iifdef  EnExFlag 

printff "Exit  append    attr   value  n"): 
iendif 

return(last    req   ptr): 
}      *  end  append   attr  value  * 


get_base_fun_type(fptr) 

struct      function_node     *fptr; 

{ 
char      fun    type: 

±ifdef  EnExFlag 

printf("Enter  get_base  fun   type\n"); 
#endif 

switch  (fptr->fn_type) 

{ 

case  'r  : 
case  T  : 
case  V  :  funtype  =  fptr->fn_type: 

break; 
case  'b'  :  fun   type  =  'i'; 

break; 
case  V  :  if  (fptr  ->  fn_entptr  !=  NULL  || 
fptr  ->  fnsubptr  !=  NULL) 
funtype  =  'E'; 
else  if  (fptr  ->  fn   nonentptr  !=  NULL) 

fun   type  =  fptr->fn   nonentptr->  enn   type; 
else  if  (fptr  ->  fn   nonsubptr  !=  NULL) 

fun   type  =  fptr  ->  fn   nonsubptr  ->  snn    type: 
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else  if  (fptr  ->  fn    nonderptr  !=  NULL) 

fun   type  =  fptr  ->  fn   nonderptr  ->  dnn   type; 
break; 
}     /*  end  switch  */ 

#ifdef  EnExFlag 

printf("Exit  get   base  fun   type\n"); 
#endif 

ret  urn  (fun   type); 

}  /*  end  get   base  fun   type  */ 

put _dki_ent_value_list( type,  strin) 

int    type; 
char  *str_in: 

{ 
struct  ent    value      *ev_ptr; 
int  i; 

if  (kms   ptr->dki  evl   ptr.num   values  ==  0) 
kms_ptr->dki_evl_ptr.type  =  type: 

ev    ptr  =  ent   value   alloc(); 

ev    ptr->ev_value  =  var  str  alloc(strlen(str  in)  +  1); 

if  (type  ==  String) 

for  (i  =  1;  i  <  strlen(str  in);  i-i-  +  ) 
if  (isupper(str  in[i])) 

str_in[i]  =  tolower(str  in[i]); 
strcpy(ev   ptr->ev   value,  str  in); 
ev_ptr->next  =  kms   ptr->dki  evl   ptr.ev   ptr; 
kms_ptr->dki  evl   ptr.ev   ptr  =  ev   ptr; 
kms_ptr->dki_evl_ptr.num_values^-|-; 

} 


clean  _dki_evl_ptr() 

{ 
struct  ent   value  *ev   ptr, 


* 


next   ev   ptr; 

kms   ptr->dki  evl  ptr. type  =  '  '; 
kms_ptr->dki_evl_ptr.num   values  =  0; 
ev_ptr  =  kms   ptr->dki_evl  ptr.ev   ptr; 
while  (ev_ptr~T=  NULL)" 
{ 
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next_ev_ptr  =  ev   ptr->next; 

free(ev^ptr): 

ev^ptr  =  next    ev   per: 

} 

kms_ptr->dki_evl   pcr.ev   ptr  =  NULL; 

} 


struct  ent_node      "search   entity(en   name) 
char  *en_name: 

{ 
int  found  =  FALSE: 
struct  ent_node  'entptr: 

entptr  = 

cuser_dap_ptr->ui_li_type.li_dap.dpi_curr  db.cdi   db.dn   fun->fdn   entpti 
while  ((entptr  '=  NULL)  kk  (Tfound))~ 

{ 

if  (strcmpientptr-  >en   name,  en    name;  ==  FALSE 
found  =  TRUE; 

else 

entptr  —  entptr->en    next    ent: 
} 

return(entptr): 
} 


struct  gen   sub   node      "search   gensub(gsn   name) 
char  *gsn    name: 

{ 
int  found  =  FALSE: 
struct  gen_sub_node    "subptr: 

subptr  = 

cuser  dap   ptr->ui   li  type.li  dap. dpi  curr  db.cdi   db.dn   fun->fdn   subptr: 
while  (jsubptr  !=  NULL)  kk  (!found))~ 

{ 

if  (strcmp(subptr->gsn  name.  gsn_name)  ==  FALSE) 

found  =  TRUE: 
else 

subptr  =  subptr->gsn_next_genptr: 
} 

return(subptr): 
} 
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struct  function   node      *search   funct(  indexed   compptr,  entptr,  subptr) 
struct  indexed   component    *indexed   compptr: 
struct  entnode  *entptr; 

struct  gen_sub_node  *subptr; 

{ 
int  found; 

struct  function   node   *funct   ptr; 
struct  ent   node  list     *enlptr; 
struct  subnodelist    *snlptr: 

struct  ent   node  *dummy_entptr  =  NULL: 

struct  gen   sub   node  'dummy   subptr  =  NULL; 

if  (entptr  !=  NULL) 

{ 

functptr  =  entptr- >en_ftnptr; 

found~=  FALSE; 

while  ((functptr  !=  NULL)  kk  (Ifound)) 

{ 

if  (strcmp(funct    ptr->fn   name,  indexed   comp   ptr->name   id)  ==  FALSE) 

{ 

strcpy(indexed   comp   ptr->parent   name.  entptr->en   name): 
found  =  TRUE! 

} 
else 

funct   ptr  =  funct   ptr->next; 
} 
} 
else 

{ 

funct_ptr  =  subptr- >gsn   ftnptr; 

found~=  FALSE; 

while  ((functptr  !=  NULL)  kk  (Ifound)) 

{ 

if  (strcmp(funct   ptr->fn   name,  indexed   comp  ptr->name   id)  ==  FALSE) 

{ 

strcpy(indexed_comp  ptr->parent   name,  subptr->gsn   name); 
found  =  TRUE! 

} 

else 

funct_ptr  =  funct   ptr->next; 
} 

enlptr  =  subptr->gsn_entptr; 

while  ((Ifound)  kk  (enlptr  !=  NULL)) 

{ 
functptr  =  search_funct(indexed_comp_ptr,  enlptr->entptr, 

dummy   subptr); 
if  (functptr  !=  NULL) 

found  =  TRUE; 
else 
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enlptr  =  enlptr->next: 
} 

snlptr  =  subptr->gsn_subptr: 

while  ((Jfound)  &&  (snlptr  !=  NULL)) 

{ 
functptr  =  search_funct(indexed_comp_ptr.  dummy_entptr, 

snlptr->subptr); 
if  (functptr  !=  NULL) 

found  =  TRUE: 
else 

snlptr  =  snlptr->next; 
} 
} 

return  (funct    ptr): 
} 
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APPENDIX  D 
THE  DAPLEX  GRAMMAR  RULES 


<statement>  ::  = 

<ddl-statement> 
<dml-statement  > 

<ddl-statement>  ::  = 

DATABASE  <name-id>  IS  <declarative-item-list>  <end-database>  SEMICOLON 

<end-database>  ::  = 
END 
END  <name-id> 

<declarative-item-list>  ::  = 
<declarative-item> 
< declarative-item-list >  <declarative-itern> 

<declarative-item>  ::= 

<  declaration  > 

i        <overlap-rule> 

<  uniqueness-rule  > 

<overlap-rule>  ::=  OVERLAP  <namel-list>  WITH  <namel-list>  SEMICOLON 
<uniqueness-rule>  ::=  UNIQUE  <id-list>  WITHIN  <name-id>  SEMICOLON 

<declaration>  ::  = 

<  number-declaration  > 

TYPE  <new-id>  < type-declaration > 
SUBTYPE  <new-id>  <subtype-declaration> 

< number-declaration >  ::= 

<new-id-list>  COLON  CONSTANT  ASSIGN  <simple-const>  SEMICOLON 

<simple-const>  ::  = 

INTEGER-LITERAL 

FLOAT-LITERAL 

CHARACTER-STRING 

<type-declaration>  ::= 

IS  <type-definition>  SEMICOLON 
|        IS  <entity-type-definition>  SEMICOLON 
<incomplete-type-declaration> 

<incomplete-type-declaration>  ::=  SEMICOLON 

<type-definition>  ::= 

<enumeration-type-definition> 
<integer-range> 

196 


<float-range> 

<derived- type-definition  > 

<enumeration-type-definition>  ::=  LP  <enumeration-literal-list>  RP 

<enumeration-literal-list>  ::  = 
<enumeration-literal> 
<  enumeration-literal-list  >  COMMA  <enumeration-literal> 


<enumeration-literal>  ::=  IDENTIFIER 

<integer-range>  ::=  RANGE  <int-range> 

<int-range>  ::=  INTEGER-LITERAL  ELIPSES  INTEGER-LITERAL 

<float-range>  ::=  RANGE  FLOAT-LITERAL  ELIPSES  FLOAT-LITERAL 

<derived-type-definition>  ::=  NEW  <  name-id  >  <derived-range> 

< derived-ranges  ::- 

<  integer-range  > 

<  float-range  > 

<entity-type-definition>  ::= 

ENTITY  <enthy-component-declaration-list>  END  ENTITY 
|       ENTITY  END  ENTITY 

<entity-component-declaration-list>  ::= 

<  entity-component-declaration  > 
<entity-component-declarat ion-list >  <entity-component-declaration> 

<entity-component-declaration>  ::=  <namel-list>  COLON  <function-type-declaration> 

<function-type-declaration>  ::  — 

<function-type>  < end-scalar- function > 
<set-type-definition>  SEMICOLON 

<set-type-definition>  ::=  SET  OF  <function-type> 

<end-scalar-function>  ::= 
SEMICOLON 
ASSIGN  <default-value>  SEMICOLON 

<default-value>  ::  = 

INTEGER-LITERAL 
|       FLOAT-LITERAL 

CHARACTER-STRING 

<  boolean-value  > 

<boolean-value>  ::  = 
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TRUE 
|       FALSE 

<function-type>  ::  = 

<type-mark>  <constraint> 
!        STRING  LP  <string-range>  RP 

<string-range>  ::  = 
<int-range> 
INTEGER-LITERAL 

<type-mark>  ::  = 

<name-id> 
FLOAT 
INTEGER 
BOOLEAN 

< constraints  ::  = 

/*  empty  * 
<range-constraint> 

<  null-constraint  > 

<range-constraint>  ::  = 
<integer-range> 
<float-range> 
<enumeration-range> 

<enumeration-range>  ::=  RANGE  IDENTIFIER  ELIPSES  IDENTIFIER 

<null-constraint>  ::  = 
WITHNULL 
j       WITHOUTNULL 

<subtype-declaration>  ::  = 

IS  <complete-subtype>  SEMICOLON 

<  incomplete-subtype-declaration  > 

<complete-subtype>  ::  = 

<name-id  subtype-definition> 
<id-list>  <entity-type-definition> 
|       STRING  LP  <string-range>  RP 

<subtype-definition>  ::  = 

RANGE  <enumeration-literal>  ELIPSES  <enumeration-literal> 
<integer-range> 

<  float-range  > 
|        /*  empty  */ 

<incomplete-subtype-declaration>  ::=  SEMICOLON 

<name-id>  ::=  IDENTIFIER 
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<new-id>  ::—  <name-id> 

< new-id-list >  ::= 

<  new-id  > 

<new-id-list>  COMMA  <new-id> 

<id-list>  ::  = 

<  name-id  > 

<id-list>  COMMA  <name-id> 

<namel>  ::=  <name-id> 

<namel-list,>  ::= 
<namel> 
<namel-list>  COMMA  <namel> 

<dml-statement  >  ::  = 

<create-statement> 

<  destroy-statement  > 
<move-statement> 

<  loop-statement  > 

<dml-statement2>  ::  = 

<  assignment-statement> 
<include-statement> 
<exclude-statement> 
<destroy-statement> 
<move-statement> 
<procedure-call> 

<create-statement>  ::=  CREATE  NEW  <create-part>  SEMICOLON 

<create-part>  ::=  <namel-list>  <named-aggregate> 

<named-aggregate>  ::  = 

LP  <component-association-list>  RP 
|        /*  empty  * 

<component-association-list>  ::  = 

<  component-association  > 
<component-association-list>  COMMA  <component-association> 

<component-association>  ::=  IDENTIFIER  IMPLY  <dap-expr> 

<dap-expr>  ::  — 

<relation> 

<rel-and-list> 

<rel-or-list> 

<rel-and-list>  ::  = 

<  relation  >  AND  <relation> 
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I        <rel-and-list>  AND  <relation> 

<rel-or-list>  ::  = 

<relation>  OR  <relation> 
<rel-or-list>  OR  <relation> 

<relation>  ::  = 

<simple-expr> 

<simple-expr>  <relational-operator>  <simple-expr> 
<simple-expr>  <in-op>  <dap-range> 
<simple-expr>  <in-op>  <namel> 

<simple-expr>  ::  = 
<literal> 

<set-constructor> 
<indexed-component> 
<function- application  > 

<function-application>  ::=  <function-name>  LP  <expr-types>  RP 

•  expr- types  >  ::  = 
<namel,> 
<set-constructor> 
<indexed-component> 

<indexed-component>  ::  = 

<dml-id-name>  LP  <dml-id-name>  RP 
<dml-id-name>  LP  <indexed-component>  RP 

<set-constructor>  ::=  LCB  <end-set-construct> 

<end-set-constructor>  ::  = 

<basic-expr-list>  RCB 

<simple-expr>  IN  <set-constructor-part>  WHERE  <dap-expr>  RCB 
|       RCB 

<set-constructor-part>  ::  — 
<namel> 
<dap-range> 

<basic-expr>  ::  = 
<literal> 

<indexed-component> 
<function-application> 

<basic-expr-list>  ::  = 
<basic-expr> 
i        <basic-expr-list>  COMMA  <basic-expr> 

<domain>  ::  = 

<loop-expr> 
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<loop-expr>  WHERE  <dap-expr> 

<loop-expr>  ::  = 

<indexed-component> 
|       IDENTIFIER 

<exclude-statement>  ::=  EXCLUDE  <dap-expr>  FROM  <indexed-component>  SEMICOLON 

<destroy-statement>  ::=  DESTROY  <dap-expr>  SEMICOLON 

<assignment-statement>  ::—  <indexed-component>  ASSIGN  <dap-expr> 

<include-statement>  ::=  INCLUDE  <dap-expr>  INTO  <indexed-component>  SEMICOLON 

< move-statement  >  ::=  MOVE  <dap-expr>  <move-statement2>  SEMICOLON 

<move-statement2>  ::  = 
<move-from> 
<move-to> 
<move-from>  <move-to> 

<move-from>  ::=  FROM  <namel-list> 

<move-to>  ::=  INTO  <create-part> 

<procedure-call>  ::=  <procedure-name>  LP  <basic-expr-list>  RP  SEMICOLON 

<procedure-name>  ::  = 
PRINT 
|       PRINT-LINE 

<loop-statement>  ::  = 

<real-loop>  SEMICOLON 
|       IDENTIFIER  COLON  <real-loop>  IDENTIFIER  SEMICOLON 
IDENTIFIER  COLON  <real-loop>  SEMICOLON 

<real-loop>  ::=  <iteration-clause>  <basic-loop>  <end-loop> 

<iteration-clause>  ::  = 

<  iteration-body  > 

<iteration-body>  BY  <order-component-list> 

<iteration-body>  ::=  <for-clause>  IDENTIFIER  IN  <domain> 

<for-clause>  ::  = 
FOR 
|       FOR  EACH 

<order-component-list>  ::= 
<order-component> 
<order-component-list>  COMMA  <order-component> 
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<order-component>  ::  = 

<indexed-component> 
<sort-order>  <indexed-component> 

<sort-order>  ::  = 

ASCENDING 
i       DESCENDING 

< basic-loop >  ::  = 

<sequence-of-statements> 
LOOP  <sequence-of-statements> 

<sequence-of-statements>  ::= 
<dml-statement2> 
<sequence-of-statements>  <dml-statement2> 

<end-loop>  ::= 
END 
END  LOOP 

<dml-id-name  >  ::=  IDENTIFIER 

<relacional-operator>  ::  = 
EQ 
NE 
LT 
LE 
GT 
|       GE 

<in-op>  ::  = 
IN 
|       NOT  IN 

<dap-range>  ::  = 

<integer-range> 
<float-range> 

<literal>  ::  = 

CHARACTER-STRING 
|       NULL 
I       TRUE 

FALSE 

<function-name>  ::  — 
COUNT 
|       SUM 
AVG 
MIN 
MAX 
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